OFFSET
1,2
EXAMPLE
24 does not belong to the sequence because there are integer partitions of 24 containing no 1's or prime powers, namely: (24), (18,6), (14,10), (12,12), (12,6,6), (6,6,6,6).
MATHEMATICA
nn=100;
ser=Product[If[n==1||PrimePowerQ[n], 1, 1/(1-x^n)], {n, nn}];
Join@@Position[CoefficientList[Series[ser, {x, 0, nn}], x], 0]-1
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
Gus Wiseman, Dec 14 2018
STATUS
approved