login
A176585
Primes of the form n^3+Smallest square, (Smallest square >= n^3).
1
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,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 *)
KEYWORD
nonn
AUTHOR
STATUS
approved