OFFSET
1,2
COMMENTS
The sequence is conjectured to be complete.
MATHEMATICA
nmax = 82; f[x_] := Sum[Boole[SquareFreeQ[k] && PrimeNu[k] != 1] x^k, {k, 1, nmax}]^2; b = Exponent[#, x] & /@ List @@ Normal[Series[f[x], {x, 0, nmax}]]; c = Complement[Range[nmax], b][[1 ;; 19]]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Ilya Gutkovskiy, Jul 20 2017
STATUS
approved