A236042 Primes p such that 100*p+1, 100*p+3, 100*p+7, and 100*p+9 are all prime.

1657, 2437, 6073, 10687, 11677, 13297, 13399, 33289, 35869, 40927, 46093, 57601, 61933, 77743, 97927, 125119, 127447, 130411, 140827, 141397, 189229, 217207, 246439, 271573, 289987, 292867, 292969, 297469, 329803

Offset

1,1

Links

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

Example

125119, 12511901, 12511903, 12511907, and 12511909 are all prime, thus 125119 is a member of this sequence.

Mathematica

Select[Prime[Range[30000]], AllTrue[100#+{1, 3, 7, 9}, PrimeQ]&] (* Harvey P. Dale, Mar 05 2023 *)

Prog

(Python)
import sympy
from sympy import isprime
{print(p) for p in range(10**6) if isprime(p) and isprime(100*p+1) and isprime(100*p+3) and isprime(100*p+7) and isprime(100*p+9)}

Crossrefs

Cf. A000040, A064687.

Sequence in context: A251898 A250929 A054809 * A163273 A340923 A104019

Adjacent sequences: A236039 A236040 A236041 * A236043 A236044 A236045

Keyword

nonn

Author

Derek Orr, Jan 18 2014

Status

approved