A127580 Numbers k such that 64k+63 is prime.
1, 2, 5, 16, 17, 19, 22, 25, 32, 34, 41, 44, 52, 55, 61, 64, 74, 79, 85, 94, 95, 97, 104, 107, 109, 110, 116, 127, 131, 137, 142, 145, 152, 157, 160, 164, 166, 172, 179, 184, 185, 194, 197, 199
Offset: 1
Keywords
Programs
-
Mathematica
a = {}; Do[If[PrimeQ[64n + 63], AppendTo[a, n]], {n, 1, 200}]; a