OFFSET
0,4
COMMENTS
Invert transform of A000065.
LINKS
Robert Israel, Table of n, a(n) for n = 0..2000
N. J. A. Sloane, Transforms
FORMULA
G.f.: 1/(1 - Sum_{k>=1} A000065(k)*x^k).
MAPLE
seq(coeff(series(1/(1+1/(1-x)-mul(1/(1-x^k), k=1..n)), x, n+1), x, n), n=0..40); # Muniru A Asiru, Jul 30 2018
MATHEMATICA
nmax = 35; CoefficientList[Series[1/(1 + 1/(1 - x) - Product[1/(1 - x^k), {k, 1, nmax}]), {x, 0, nmax}], x]
nmax = 35; CoefficientList[Series[1/(1 - Sum[(PartitionsP[k] - 1) x^k, {k, 1, nmax}]), {x, 0, nmax}], x]
a[0] = 1; a[n_] := a[n] = Sum[(PartitionsP[k] - 1) a[n - k], {k, 1, n}]; Table[a[n], {n, 0, 35}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Jul 30 2018
STATUS
approved