cp's OEIS Frontend

A223092 Triangle read by rows: let T(n,k) (for n >= 0, 0 <= k <= n) be the number of walks from (0,0) to (n,k) using steps (1,1), (1,0), (1,-1) and (0,-1); n-th row of triangle gives T(n,n), T(n,n-1), ..., T(n,0).

%I A223092 #32 Mar 07 2014 10:13:58
%S A223092 1,1,2,1,4,7,1,6,18,29,1,8,33,86,133,1,10,52,179,431,650,1,12,75,316,
%T A223092 978,2238,3319,1,14,102,505,1874,5406,11941,17498,1,16,133,754,3235,
%U A223092 11020,30241,65086,94525,1,18,168,1071,5193,20202,64698,171045,360897,520508,1,20,207,1464,7896,34362,124455,380400,977040,2029490,2910895
%N A223092 Triangle read by rows: let T(n,k) (for n >= 0, 0 <= k <= n) be the number of walks from (0,0) to (n,k) using steps (1,1), (1,0), (1,-1) and (0,-1); n-th row of triangle gives T(n,n), T(n,n-1), ..., T(n,0).
%H A223092 Alois P. Heinz, <a href="/A223092/b223092.txt">Rows n = 0..140, flattened</a>
%H A223092 M. Dziemianczuk, <a href="http://dx.doi.org/10.1007/s00373-013-1357-1">Counting Lattice Paths With Four Types of Steps</a>, Graphs and Combinatorics, September 2013
%H A223092 N. J. A. Sloane, <a href="/A223092/a223092.pdf">Illustration of initial terms of A223092 and A064641</a>
%F A223092 T(n,k) = T(n,k+1) + T(n-1,k+1) + T(n-1,k) + T(n-1,k-1). - _Philippe Deléham_, Mar 29 2013
%e A223092 Triangle begins:
%e A223092 [1]
%e A223092 [1, 2]
%e A223092 [1, 4, 7]
%e A223092 [1, 6, 18, 29]
%e A223092 [1, 8, 33, 86, 133]
%e A223092 [1, 10, 52, 179, 431, 650]
%e A223092 [1, 12, 75, 316, 978, 2238, 3319]
%e A223092 ...
%e A223092 The T(n,k) array begins:
%e A223092 4:  0  0  0  0   1  10 ...
%e A223092 3:  0  0  0  1   8  52 ...
%e A223092 2:  0  0  1  6  33 179 ...
%e A223092 1:  0  1  4 18  86 431 ...
%e A223092 0:  1  2  7 29 133 650 ...
%e A223092 -------------------------
%e A223092 k/n:0  1  2  3   4   5 ...
%e A223092 T(5,2) = T(5,3) + T(4,3) + T(4,2) + T(4,1) = 52 + 8 + 33 + 86 = 179.- _Philippe Deléham_, Mar 29 2013
%e A223092 This is also Dziemianczuk's array N(-i,i+j) read by antidiagonals:
%e A223092 1,2,7,29,133,650,3319,17498, ...
%e A223092 1,4,18,86,431,2238,11941,65086, ...
%e A223092 1,6,33,179,978,5406,30241,171045, ...
%e A223092 1,8,52,316,1874,11020,64698,380400, ...
%e A223092 1,10,75,505,3235,20202,124455,761160, ...
%e A223092 ... - _N. J. A. Sloane_, Dec 05 2013
%p A223092 T:= proc(n, k) option remember; `if`(n=0 and k=0, 1,
%p A223092       `if`(n<0 or k<0 or k>n, 0, add(T(n-l[1], k-l[2]),
%p A223092        l=[[1, 1], [1, 0], [1, -1], [0, -1]]) ))
%p A223092     end:
%p A223092 seq(seq(T(n, n-j), j=0..n), n=0..10);  # _Alois P. Heinz_, Apr 08 2013
%t A223092 max = 10; T[0, 0] = 1; T[n_ /; n >= 0, k_ /; 0 <= k <= max] := T[n, k] = T[n, k+1]+T[n-1, k+1]+T[n-1, k]+T[n-1, k-1]; T[n_, k_] = 0; Table[Table[T[n, k], {k, n, 0, -1}], {n, 0, max}] // Flatten (* _Jean-François Alcover_, Mar 07 2014, after _Philippe Deléham_ *)
%Y A223092 Cf. A064641 (T(n,0)), A071943, A052709.
%K A223092 nonn,tabl
%O A223092 0,3
%A A223092 _N. J. A. Sloane_, Mar 29 2013