A274201 Limiting reverse row of the array A274196.

1, 1, 1, 1, 2, 2, 2, 3, 4, 4, 5, 7, 8, 9, 12, 15, 17, 21, 27, 32, 37, 47, 58, 68, 82, 103, 124, 147, 181, 223, 266, 321, 396, 480, 575, 701, 858, 1033, 1248, 1525, 1852, 2232, 2712, 3305, 3998, 4836, 5886, 7148, 8644, 10487, 12752, 15453, 18713, 22731, 27596

Offset

1,5

Comments

The triangular array (g(n,k)) in A274196 is defined as follows: g(n,k) = 1 for n >= 0; g(n,k) = 0 if k > n; g(n,k) = g(n-1,k-1) + g(n-1,4) for n > 0, k > 1.

Links

Table of n, a(n) for n=1..55.

Mathematica

g[n_, 0] = g[n, 0] = 1;
g[n_, k_] := g[n, k] = If[k > n, 0, g[n - 1, k - 1] + g[n - 1, 4 k]];
z = 300; w = Reverse[Table[g[z, k], {k, 0, z}]];
Take[w, z/3]

Crossrefs

Cf. A274196, A274199, A274200.

Sequence in context: A351908 A029051 A338826 * A079398 A225499 A215473

Adjacent sequences: A274198 A274199 A274200 * A274202 A274203 A274204

Keyword

nonn,easy

Author

Clark Kimberling, Jun 16 2016

Status

approved