OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(3) = 383 is a term because 383, 389 and 397 are consecutive primes and both 383389397 and 397389383 are prime.
MAPLE
rcat:= proc(L) local x, i;
x:= L[1];
for i from 2 to nops(L) do
x:= 10^(1+ilog10(x))*L[i] + x
od;
x
end proc:
fcat:= proc(L) local x, i;
x:= L[1];
for i from 2 to nops(L) do
x:= 10^(1+ilog10(L[i]))*x + L[i]
od;
x
end proc:
P:= select(isprime, [seq(i, i=3..30000, 2)]):
J:= select(i -> isprime(rcat(P[i..i+2])) and isprime(fcat(P[i..i+2])), [$1..nops(P)-2]):
P[J];
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert Israel, Jun 13 2025
STATUS
approved
