OFFSET
1,1
COMMENTS
Numbers k such that number of partitions of k into an even number of distinct nonprime parts equals number of partitions of k into an odd number of distinct nonprime parts.
Positions of 0's in A302234.
MATHEMATICA
a[j_] := a[j] = If[j == 0, 1, -Sum[Sum[Boole[!PrimeQ[d]] d, {d, Divisors[k]}] a[j - k], {k, 1, j}]/j]; Select[Range[300], a[#] == 0 &]
Flatten[Position[nmax = 300; Rest[CoefficientList[Series[Product[(1 - x^j)/(1 - x^Prime[j]), {j, 1, nmax}], {x, 0, nmax}], x]], 0]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Nov 01 2019
STATUS
approved