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,3

Links

Table of n, a(n) for n=1..64.

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 *)

Prog

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

Crossrefs

Sequence in context: A362461 A285161 A329781 * A047249 A327257 A228941

Adjacent sequences: A139528 A139529 A139530 * A139532 A139533 A139534

Keyword

nonn

Author

Artur Jasinski, Apr 25 2008

Status

approved