A113410 Numbers n such that n^2 is of the form k-th prime - k for some k.
1, 5, 21, 23, 27, 31, 33, 37, 45, 53, 67, 70, 96, 101, 102, 128, 135, 144, 167, 178, 186, 188, 196, 197, 199, 202, 216, 219, 246, 247, 252, 255, 264, 299, 300, 341, 356, 363, 369, 381, 382, 407, 410, 426, 427, 494, 503, 506, 520, 528, 538, 550, 562, 573, 607
Offset: 1
Keywords
Programs
-
Mathematica
Sqrt[#]&/@Select[Table[Prime[k]-k,{k,2,40000}],IntegerQ[Sqrt[#]]&] (* Harvey P. Dale, Aug 04 2019 *)
Comments