A127577 Numbers n for which 32n+31 is prime.
3, 5, 6, 11, 14, 18, 26, 30, 33, 35, 39, 44, 45, 48, 51, 54, 56, 60, 65, 66, 68, 69, 74, 80, 83, 84, 89, 98, 104, 105, 111, 123, 128, 129, 138, 144, 146, 149, 150, 156, 158, 159, 164, 168, 170, 171, 180, 188, 189, 191, 195, 198
Offset: 1
Keywords
Programs
-
Mathematica
a = {}; Do[If[PrimeQ[32n + 31], AppendTo[a, n]], {n, 1, 200}]; a Select[Range[200],PrimeQ[32#+31]&] (* Harvey P. Dale, Dec 14 2024 *)