OFFSET
0,16
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..10000
MATHEMATICA
CoefficientList[Series[Product[1 - x^PartitionsP[k], {k, 1, 120}], {x, 0, 100}], x] (* G. C. Greubel, Oct 27 2018 *)
PROG
(PARI) x='x+O('x^50); Vec(prod(k=1, 50, 1-x^numbpart(k))) \\ G. C. Greubel, Oct 27 2018
(Magma) m:=50; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!( (&*[1-x^NumberOfPartitions(k): k in [1..100]]))); // G. C. Greubel, Oct 27 2018
CROSSREFS
KEYWORD
sign,look
AUTHOR
Seiichi Manyama, Oct 22 2018
STATUS
approved