OFFSET
0,3
COMMENTS
Partial sums of A000586.
LINKS
Joerg Arndt, Matters Computational (The Fxtbook), end of section 16.4.2 "Partitions into distinct parts", pp.348ff
Eric Weisstein's World of Mathematics, Prime Partition
FORMULA
G.f.: (1/(1 - x))*Product_{k>=1} (1 + x^prime(k)).
MATHEMATICA
nmax = 70; CoefficientList[Series[(1/(1 - x)) Product[(1 + x^Prime[k]), {k, 1, nmax}], {x, 0, nmax}], x]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Dec 30 2016
STATUS
approved