login
A139532
Numbers n such that numbers 24n+19 are primes.
3
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,3
LINKS
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 *)
PROG
(Haskell)
a139532 n = a139532_list !! (n-1)
a139532_list = [x | x <- [0..], a010051' (24 * x + 19) == 1]
-- Reinhard Zumkeller, Apr 12 2014
CROSSREFS
Cf. A010051.
Sequence in context: A288635 A308595 A104493 * A024798 A108857 A132142
KEYWORD
nonn
AUTHOR
Artur Jasinski, Apr 25 2008
STATUS
approved