A139531 Numbers k such that 24*k + 17 is prime.

0, 1, 3, 4, 5, 9, 10, 11, 14, 16, 18, 21, 23, 24, 25, 26, 31, 33, 35, 36, 38, 39, 40, 43, 45, 49, 50, 53, 56, 58, 59, 61, 64, 66, 70, 71, 78, 79, 86, 88, 89, 94, 95, 99, 100, 101, 108, 109, 110, 113, 114, 115, 116, 120, 123, 126, 128, 130, 133, 135, 138, 143, 149, 150

Offset: 1

Author

Artur Jasinski, Apr 25 2008

Keywords

• nonn

Programs

Magma

[n: n in [0..200] | IsPrime(24*n+17)]; // Vincenzo Librandi, Apr 19 2011

Mathematica

a = {}; Do[If[PrimeQ[24 n + 17], AppendTo[a, n]], {n, 0, 200}]; a
Select[Range[0,200],PrimeQ[24#+17]&]  (* Harvey P. Dale, Apr 18 2011 *)