OFFSET
1,1
COMMENTS
8+9=17, 5^3+12^2=269,..
MATHEMATICA
r[n_]:=n^3; f[n_]:=r[n]+Ceiling[Sqrt[r[n]]]^2; Select[Table[f[n], {n, 0, 6!}], PrimeQ[ # ]&]
ssn3[n_]:=n^3+(Ceiling[Sqrt[n^3]])^2; Select[Array[ssn3, 500], PrimeQ] (* Harvey P. Dale, Jun 23 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 21 2010
STATUS
approved