OFFSET
1,1
MATHEMATICA
Select[Prime@Range@2000, OddQ[d=Length[s=IntegerDigits[#]]]&&s[[Ceiling[d/2]]]==0&] (* Giorgos Kalogeropoulos, Jul 04 2021 *)
PROG
(Perl)
#!/usr/bin/perl
$str = "";
foreach $cand (101..20000){ # loop over candidates
next unless &isPrime($cand); # is $cand prime? 0/1 result
@a = split("", $cand);
next if @a/2 == int @a/2;
$mid = int @a/2;
next unless $a[$mid] == 0;
$str .= "$cand, ";
}
chop $str; chop $str;
print "$str\n";
(PARI) isok(p) = {if (isprime(p), my(d=digits(p)); (#d % 2) && (d[#d\2+1] == 0); ); } \\ Michel Marcus, Jun 28 2021
(Python)
from sympy import isprime
from itertools import product
def agen(maxdigits):
for digits in range(3, maxdigits+1, 2):
for first in "123456789":
for left in product("0123456789", repeat=digits//2-1):
left = "".join(left)
for right in product("0123456789", repeat=digits//2-1):
right = "".join(right)
for last in "1379":
t = int("".join(first + left + "0" + right + last))
if isprime(t): yield t
print([an for an in agen(5)]) # Michael S. Branicky, Jun 28 2021
CROSSREFS
KEYWORD
nonn,base
AUTHOR
James S. DeArmon, Jun 27 2021
STATUS
approved