cp's OEIS Frontend

A026552 Irregular triangular array T read by rows: T(n, 0) = T(n, 2*n) = 1, T(n, 1) = T(n, 2*n-1) = floor(n/2 + 1), for even n >= 2, T(n, k) = T(n-1, k-2) + T(n-1, k-1) + T(n-1, k), otherwise T(n, k) = T(n-1, k-2) + T(n-1, k).

%I A026552 #28 Mar 01 2022 09:15:43
%S A026552 1,1,1,1,1,2,3,2,1,1,2,4,4,4,2,1,1,3,7,10,12,10,7,3,1,1,3,8,13,19,20,
%T A026552 19,13,8,3,1,1,4,12,24,40,52,58,52,40,24,12,4,1,1,4,13,28,52,76,98,
%U A026552 104,98,76,52,28,13,4,1,1,5,18,45,93,156,226,278
%N A026552 Irregular triangular array T read by rows: T(n, 0) = T(n, 2*n) = 1, T(n, 1) = T(n, 2*n-1) = floor(n/2 + 1), for even n >= 2, T(n, k) = T(n-1, k-2) + T(n-1, k-1) + T(n-1, k), otherwise T(n, k) = T(n-1, k-2) + T(n-1, k).
%C A026552 T(n, k) = number of integer strings s(0)..s(n) such that s(0) = 0, s(n) = n-k, |s(i)-s(i-1)|<=1 if i is even or i = 1, |s(i)-s(i-1)| = 1 if i is odd and i >= 3.
%H A026552 Clark Kimberling, <a href="/A026552/b026552.txt">Table of n, a(n) for n = 0..10200</a> [Offset changed to 0 by _Georg Fischer_, Mar 01 2022]
%H A026552 <a href="/index/Pas#Pascal">Index entries for triangles and arrays related to Pascal's triangle</a>
%F A026552 Sum_{k=0..2*n} T(n,k) = A026565(n). - _G. C. Greubel_, Dec 17 2021
%e A026552 First 5 rows:
%e A026552   1;
%e A026552   1, 1, 1;
%e A026552   1, 2, 3,  2,  1;
%e A026552   1, 2, 4,  4,  4,  2,  1;
%e A026552   1, 3, 7, 10, 12, 10,  7,  3,  1;
%t A026552 z = 12; t[n_, 0] := 1; t[n_, k_] := 1 /; k == 2 n; t[n_, 1] := Floor[n/2 + 1]; t[n_, k_] := Floor[n/2 + 1] /; 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}];
%t A026552 TableForm[u] (* A026552 array *)
%t A026552 v = Flatten[u] (* A026552 sequence *)
%o A026552 (Sage)
%o A026552 @CachedFunction
%o A026552 def T(n,k): # T = A026552
%o A026552     if (k==0 or k==2*n): return 1
%o A026552     elif (k==1 or k==2*n-1): return (n+2)//2
%o A026552     elif (n%2==0): return T(n-1, k) + T(n-1, k-1) + T(n-1, k-2)
%o A026552     else: return T(n-1, k) + T(n-1, k-2)
%o A026552 flatten([[T(n,k) for k in (0..2*n)] for n in (0..10)]) # _G. C. Greubel_, Dec 17 2021
%Y A026552 Cf. A026553, A026554, A026555, A026556, A026557, A026558, A026559, A026560, A026563, A026563, A026566, A026567, A027272, A027273, A027274, A027275, A027276.
%Y A026552 Cf. A026519, A026536, A026568, A026584, A027926.
%Y A026552 Cf. A026565.
%K A026552 nonn,tabf
%O A026552 0,6
%A A026552 _Clark Kimberling_
%E A026552 Updated by _Clark Kimberling_, Aug 28 2014