OFFSET
0,3
LINKS
Robert Israel, Table of n, a(n) for n = 0..10000
FORMULA
a(n) = n*(n-1)*A000009(n).
MAPLE
g:= mul(1+x^k, k=1..100):
S1:= series(g, x, 101):
S2:= series(x^2*diff(S1, x$2), x, 101):
seq(coeff(S2, x, j), j=0..100); # Robert Israel, Nov 22 2016
MATHEMATICA
nmax=60; CoefficientList[Series[x^2*D[Product[1+x^k, {k, 1, nmax}], {x, 2}], {x, 0, nmax}], x]
nmax=60; CoefficientList[Series[Product[1+x^k, {k, 1, nmax}], {x, 0, nmax}], x]*Range[0, nmax]*(Range[0, nmax]-1)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, Nov 21 2016
STATUS
approved