OFFSET
1,2
MATHEMATICA
nmax = 138; Position[CoefficientList[Series[Sum[x^Prime[i], {i, 1, nmax}] Sum[x^j^4, {j, 1, nmax^(1/4)}], {x, 0, nmax}], x] // Rest, 0] // Flatten
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Aug 24 2023
STATUS
approved