A090605 Numbers m such that m-th prime is of the form 60*k+1.
18, 42, 53, 82, 100, 110, 121, 172, 197, 216, 221, 257, 271, 279, 284, 326, 331, 339, 347, 369, 431, 438, 445, 450, 464, 474, 496, 556, 575, 585, 603, 618, 624, 647, 651, 682, 701, 730, 737, 741, 751, 764, 775, 798, 820, 829, 835, 841, 859, 873, 881, 894
Offset: 1
Keywords
Programs
-
Mathematica
Select[Range[900], Mod[Prime[#], 60] == 1 &] (* Amiram Eldar, Mar 01 2021 *)
Comments