A139529 Numbers k such that 24*k + 13 is prime.

0, 1, 2, 4, 6, 7, 9, 11, 14, 15, 16, 17, 22, 25, 27, 29, 30, 31, 34, 35, 36, 41, 42, 44, 45, 46, 50, 51, 57, 59, 60, 64, 66, 67, 69, 70, 72, 74, 77, 80, 84, 85, 92, 94, 95, 97, 99, 101, 106, 111, 114, 116, 121, 126, 127, 129, 132, 134, 135, 137, 140, 144, 146, 147, 150, 151

Offset

1,3

Links

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

Formula

a(n) = (A139530(n) - 13)/24. - Alois P. Heinz, Jul 01 2026

Maple

q:= k-> isprime(24*k+13):
select(q, [$0..151])[];  # Alois P. Heinz, Jul 01 2026

Mathematica

a = {}; Do[If[PrimeQ[24 n + 13], AppendTo[a, n]], {n, 0, 200}]; a

Crossrefs

Cf. A139530.

Sequence in context: A076521 A206910 A375496 * A341291 A307830 A157202

Adjacent sequences: A139526 A139527 A139528 * A139530 A139531 A139532

Keyword

nonn

Author

Artur Jasinski, Apr 25 2008

Status

approved