login
A371833
Primes whose second, third and fourth digits are 234.
3
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
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
KEYWORD
nonn,base
AUTHOR
Zak Seidov and Robert Israel, Apr 07 2024
STATUS
approved