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
Keywords
Links
- Vaclav Kotesovec, Table of n, a(n) for n = 0..10000
Programs
-
Mathematica
nmax = 100; CoefficientList[Series[Product[(1+x^k-x^(k^2)), {k, 1, nmax}], {x, 0, nmax}], x]