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

1, 2, 1, 3, 4, 6, 6, 8, 12, 15, 20, 22, 30, 35, 46, 53, 67, 80, 97, 117, 138, 165, 195, 231, 272, 323, 378, 442, 514, 600, 696, 806, 931, 1078, 1240, 1431, 1638, 1881, 2147, 2461, 2802, 3197, 3632, 4131, 4685, 5310, 6009, 6790, 7670, 8652, 9749, 10968, 12336

Offset: 0

Author

Vaclav Kotesovec, Oct 04 2017

Keywords

• nonn

Links

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

Crossrefs

Cf. A033461, A263401, A293204, A293254.

Programs

Mathematica

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