%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