A026536 Irregular triangular array T read by rows: T(i,0 ) = T(i,2i) = 1 for i >= 0; T(i,1) = T(i,2i-1) = floor(i/2) for i >= 1; for even n >= 2, T(i,j) = T(i-1,j-2) + T(i-1,j-1) + T(i-1,j) for j = 2..2i-2, for odd n >= 3, T(i,j) = T(i-1,j-2) + T(i-1,j) for j = 2..2i-2.

1, 1, 0, 1, 1, 1, 2, 1, 1, 1, 1, 3, 2, 3, 1, 1, 1, 2, 5, 6, 8, 6, 5, 2, 1, 1, 2, 6, 8, 13, 12, 13, 8, 6, 2, 1, 1, 3, 9, 16, 27, 33, 38, 33, 27, 16, 9, 3, 1, 1, 3, 10, 19, 36, 49, 65, 66, 65, 49, 36, 19, 10, 3, 1, 1, 4, 14, 32, 65, 104, 150, 180, 196, 180

Offset

0,7

Comments

T(n, k) is the number of strings s(0)..s(n) such that s(0) = 0, s(n) = n-k, |s(i) - s(i-1)| <= 1 if i is even, |s(i) - s(i-1)| = 1 if i is odd.

Links

Peter Luschny, Table of n, a(n) for row 0..100, flattened

Index entries for triangles and arrays related to Pascal's triangle

Example

First 5 rows:
  1
  1  0  1
  1  1  2  1  1
  1  1  3  2  3  1  1
  1  2  5  6  8  6  5  2  1

Mathematica

z = 12; t[n_, 0] := 1; t[n_, k_] := 1 /; k == 2 n; t[n_, 1] := Floor[n/2];
t[n_, k_] := Floor[n/2] /; k == 2 n - 1; t[n_, k_] := t[n, k] =
If[EvenQ[n], t[n - 1, k - 2] + t[n - 1, k - 1] + t[n - 1, k], t[n - 1, k -
2] + t[n - 1, k]]; u = Table[t[n, k], {n, 0, z}, {k, 0, 2 n}];
TableForm[u]   (* A026536 array *)
v = Flatten[u] (* A026536 sequence *)

Prog

(SageMath)
@cached_function
def T(n, k):
    if k < 0 or n < 0: return 0
    elif k == 0 or k == 2*n: return 1
    elif k == 1 or k == 2*n-1: return n//2
    elif n % 2 == 1: return T(n-1, k-2) + T(n-1, k)
    return T(n-1, k-2) + T(n-1, k-1) + T(n-1, k) # Peter Luschny, Oct 13 2019

Crossrefs

Cf. A026537, A026538, A026539, A026540, A026541, A026545, A026546, A026547, A026548, A026549, A026550, A027267, A027268, A027269, A027270, A027271, A352972.

Cf. A026519, A026527, A026552, A026584, A027926.

Sequence in context: A029385 A185155 A249095 * A046213 A215625 A363096

Adjacent sequences: A026533 A026534 A026535 * A026537 A026538 A026539

Keyword

nonn,tabf

Author

Clark Kimberling

Extensions

Updated by Clark Kimberling, Aug 28 2014

Offset changed to 0 by Peter Luschny, Oct 10 2019

Status

approved