%I #4 Aug 04 2019 18:33:47
%S 1,5,21,23,27,31,33,37,45,53,67,70,96,101,102,128,135,144,167,178,186,
%T 188,196,197,199,202,216,219,246,247,252,255,264,299,300,341,356,363,
%U 369,381,382,407,410,426,427,494,503,506,520,528,538,550,562,573,607
%N Numbers n such that n^2 is of the form k-th prime - k for some k.
%C Values of k: A064370. Numbers n such that n^2 is of the form k-th prime + k for some k A086968.
%t Sqrt[#]&/@Select[Table[Prime[k]-k,{k,2,40000}],IntegerQ[Sqrt[#]]&] (* _Harvey P. Dale_, Aug 04 2019 *)
%Y Cf. A064370, A086968.
%K nonn
%O 1,2
%A _Zak Seidov_, Oct 28 2005
|