A176585 Primes of the form n^3+Smallest square, (Smallest square >= n^3).

2, 17, 269, 281233, 1770217, 1826609, 2520841, 3907529, 7595017, 8665471, 9828089, 11280377, 12259063, 17235221, 27654961, 54008809, 70583033, 75196799, 85018949, 87240233, 106316057, 111499057, 168061561, 176255669, 201105409

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Apr 21 2010

Keywords

• nonn

Comments

8+9=17, 5^3+12^2=269,..

Crossrefs

Cf. A065733, A075847, A077116, A176580, A176581, A176582, A176583, A176584

Programs

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 *)