A371833 Primes whose second, third and fourth digits are 234.

12343, 12347, 22343, 22349, 32341, 42349, 62347, 72341, 82349, 92347, 123401, 123407, 123419, 123427, 123433, 123439, 123449, 123457, 123479, 123491, 123493, 123499, 223403, 223423, 223429, 223439, 223441, 223463, 223469, 223481, 223493, 323413, 323419, 323441, 323443, 323467, 323471, 323473

Offset

1,1

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

R:= NULL: count:= 0:
for d from 1 while count < 100 do
  for a from 1 to 9 while count < 100 do
    for b from 1 to 10^d-1 by 2 while count < 100 do
      x:= b + 10^d*(234 + 1000*a);
      if isprime(x) then
         count:= count+1; R:= R, x
      fi
od od od:
R;

Mathematica

p = 12301; s = {}; Do[p = NextPrime[p];
If[2 == IntegerDigits[p][[2]] && 3 == IntegerDigits[p][[3]] && 4 == IntegerDigits[p][[4]], AppendTo[s, p]], {100000}]; s

Prog

(Python)
from itertools import count, islice
from sympy import primerange
def A371833_gen(): # generator of terms
    for l in count(1):
        m = 10**l
        for a in range(1, 10):
            b = (a*10**3+234)*m
            yield from primerange(b, b+m)
A371833_list = list(islice(A371833_gen(), 20)) # Chai Wah Wu, Apr 09 2024

Crossrefs

Sequence in context: A237782 A248717 A184472 * A350153 A251949 A178475

Adjacent sequences: A371830 A371831 A371832 * A371834 A371835 A371836

Keyword

nonn,base

Author

Zak Seidov and Robert Israel, Apr 07 2024

Status

approved