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

1, 1, 0, 0, 2, 2, 0, 0, 0, 3, 3, 0, 0, 6, 6, 0, 4, 4, 0, 0, 8, 8, 0, 0, 0, 17, 17, 0, 0, 34, 34, 0, 0, 0, 15, 15, 6, 6, 30, 30, 12, 32, 20, 0, 0, 58, 58, 0, 0, 43, 103, 60, 24, 38, 134, 120, 48, 48, 21, 21, 0, 102, 144, 42, 8, 240, 232, 0, 16, 72, 146, 90, 0

Offset

0,5

Links

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

Mathematica

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

Crossrefs

Cf. A022629, A033461, A285242, A285245.

Sequence in context: A125096 A037862 A337113 * A263148 A230819 A317573

Adjacent sequences: A285241 A285242 A285243 * A285245 A285246 A285247

Keyword

nonn

Author

Vaclav Kotesovec, Apr 15 2017

Status

approved