A293254 Expansion of Product_{k>=1} (1 + x^k - x^(k^2)).

1, 0, 1, 1, 0, 2, 2, 2, 2, 3, 4, 4, 6, 7, 8, 9, 9, 14, 15, 17, 22, 23, 27, 33, 36, 43, 48, 56, 64, 72, 84, 94, 109, 124, 136, 157, 178, 197, 225, 253, 286, 319, 358, 401, 451, 500, 559, 628, 694, 774, 863, 958, 1066, 1181, 1310, 1449, 1605, 1778, 1957, 2170

Offset

0,6

Links

Vaclav Kotesovec, Table of n, a(n) for n = 0..10000

Mathematica

nmax = 100; CoefficientList[Series[Product[(1+x^k-x^(k^2)), {k, 1, nmax}], {x, 0, nmax}], x]

Crossrefs

Cf. A033461, A263401, A276516, A293253.

Sequence in context: A029081 A168656 A005862 * A046052 A369457 A280069

Adjacent sequences: A293251 A293252 A293253 * A293255 A293256 A293257

Keyword

nonn

Author

Vaclav Kotesovec, Oct 04 2017

Status

approved