OFFSET
0,6
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 0..10000
FORMULA
G.f.: Product_{k>0} (1 + x^k)^A056924(k).
MATHEMATICA
nmax = 100; CoefficientList[Series[Product[(1 + x^k)^Floor[DivisorSigma[0, k]/2], {k, 1, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Nov 02 2018 *)
nmax = 100; A056924 = Table[Floor[DivisorSigma[0, k]/2], {k, 1, nmax}]; s = 1; Do[s *= Sum[Binomial[A056924[[k]], j]*x^(j*k), {j, 0, nmax/k}]; s = Expand[s]; s = Take[s, Min[nmax + 1, Exponent[s, x] + 1, Length[s]]]; , {k, 2, nmax}]; Take[CoefficientList[s, x], nmax+1] (* Vaclav Kotesovec, Nov 02 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Nov 02 2018
STATUS
approved