OFFSET
1,2
COMMENTS
There are no more terms < 10^11.
MATHEMATICA
pp[n_] := Prime@ Range@ PrimePi@ n; upto[n_] := Complement[Range[1, n, 2],
Flatten@Table[ q^2 + r^3 + pp[n - q^2 - r^3], {r, pp[n^(1/3)]}, {q, pp@Sqrt[n - r^3]}]]; upto[10^4]
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Giovanni Resta, Jun 09 2013
STATUS
approved