A139532 Numbers n such that numbers 24n+19 are primes.

0, 1, 2, 5, 6, 8, 11, 12, 13, 15, 20, 21, 22, 23, 25, 26, 28, 30, 32, 33, 35, 36, 37, 43, 46, 48, 53, 60, 61, 63, 65, 67, 70, 71, 72, 77, 82, 83, 86, 88, 90, 91, 93, 97, 98, 102, 105, 110, 111, 112, 113, 116, 118, 123, 125, 127, 131, 132, 135, 137, 138, 145, 147, 148

Offset: 1

Author

Artur Jasinski, Apr 25 2008

Keywords

• nonn

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A010051.

Programs

Haskell

a139532 n = a139532_list !! (n-1)
a139532_list = [x | x <- [0..], a010051' (24 * x + 19) == 1]
-- Reinhard Zumkeller, Apr 12 2014

Mathematica

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