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

%I #4 Jun 23 2017 13:34:14

%S 2,17,269,281233,1770217,1826609,2520841,3907529,7595017,8665471,

%T 9828089,11280377,12259063,17235221,27654961,54008809,70583033,

%U 75196799,85018949,87240233,106316057,111499057,168061561,176255669,201105409

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

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

%t r[n_]:=n^3;f[n_]:=r[n]+Ceiling[Sqrt[r[n]]]^2;Select[Table[f[n],{n,0,6!}],PrimeQ[ # ]&]

%t ssn3[n_]:=n^3+(Ceiling[Sqrt[n^3]])^2; Select[Array[ssn3,500],PrimeQ] (* _Harvey P. Dale_, Jun 23 2017 *)

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

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Apr 21 2010