A318133 G.f.: A(x) = Sum_{n>=1} a(n)*x^n = x*Product_{n>=1} (1 + x^(2*n-1))^a(n).

1, 1, 0, 1, 1, 0, 0, 1, 1, 1, 2, 1, 1, 1, 0, 1, 2, 2, 2, 3, 3, 3, 4, 3, 5, 6, 5, 6, 7, 6, 6, 9, 8, 9, 11, 11, 13, 14, 14, 16, 20, 21, 23, 28, 29, 32, 35, 36, 42, 47, 48, 54, 64, 64, 69, 80, 85, 93, 105, 113, 124, 139, 145, 161, 181, 192, 211, 236, 252, 273, 302, 324, 356, 396, 421, 462

Offset

1,11

Links

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

Mathematica

a[n_] := a[n] = SeriesCoefficient[x Product[(1 + x^(2 k - 1))^a[k], {k, 1, n - 1}], {x, 0, n}]; a[1] = 1; Table[a[n], {n, 76}]

Crossrefs

Cf. A004111, A115593.

Sequence in context: A316771 A306269 A035212 * A068029 A158208 A348652

Adjacent sequences: A318130 A318131 A318132 * A318134 A318135 A318136

Keyword

nonn

Author

Ilya Gutkovskiy, Aug 18 2018

Status

approved