OFFSET
1,1
LINKS
Paolo P. Lava, Table of n, a(n) for n = 1..200
EXAMPLE
325421 is prime and also 3254281, 3254821, 3258421, 3285421 and 3825421.
MAPLE
with(numtheory);
A217044:=proc(q, x)
local a, b, c, i, n, ok;
for n from 5 to q do
a:=ithprime(n); b:=0;
while a>0 do b:=b+1; a:=trunc(a/10); od; a:=ithprime(n); ok:=1;
for i from 1 to b-1 do
c:=a+9*10^i*trunc(a/10^i)+10^i*x;
if not isprime(c) then ok:=0; break; fi; od;
if ok=1 then print(ithprime(n)); fi;
od; end:
A217044(100000, 8)
PROG
(PARI) is(n)=my(v=concat([""], digits(n))); for(i=2, #v-1, v[1]=Str(v[1], v[i]); v[i]=8; if(i>2, v[i-1]=""); if(!isprime(eval(concat(v))), return(0))); isprime(n) \\ Charles R Greathouse IV, Sep 25 2012
(Magma) [p: p in PrimesInInterval(11, 8000) | forall{m: t in [1..#Intseq(p)-1] | IsPrime(m) where m is (Floor(p/10^t)*10+8)*10^t+p mod 10^t}]; // Bruno Berselli, Sep 26 2012
(Python)
from sympy import isprime, primerange
def ok(p):
if p < 10: return False
s = str(p)
return all(isprime(int(s[:i] + "8" + s[i:])) for i in range(1, len(s)))
def aupto(limit): return [p for p in primerange(1, limit+1) if ok(p)]
print(aupto(7854)) # Michael S. Branicky, Nov 23 2021
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Paolo P. Lava, Sep 25 2012
STATUS
approved