OFFSET
0,16
LINKS
Fausto A. C. Cariboni, Table of n, a(n) for n = 0..500
EXAMPLE
The a(36) = 13 strict integer partitions:
(36),
(21,15), (22,14), (24,12), (26,10), (30,6), (35,1),
(14,12,10), (18,12,6), (20,10,6), (20,15,1), (21,14,1),
(15,14,6,1).
MATHEMATICA
nn=100;
ser=Product[If[PrimePowerQ[n], 1, 1+x^n], {n, nn}];
CoefficientList[Series[ser, {x, 0, nn}], x]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Dec 11 2018
STATUS
approved