OFFSET
1,1
COMMENTS
Primes p such that both concatenations p123456789 and 123456789p are prime.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(3) = 881 is a term because 881, 881123456789 and 123456789881 are all prime.
MAPLE
filter:= proc(n) isprime(n) and isprime(n*10^9+123456789) and
isprime(123456789*10^(1+ilog10(n))+n) end proc:
select(filter, [seq(i, i=3..30000, 2)]);
MATHEMATICA
Select[Prime[Range[5000]], PrimeQ[#*10^9 + 123456789] && PrimeQ[123456789*10^IntegerLength[#] + #] &] (* Paolo Xausa, May 23 2025 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert Israel, May 22 2025
STATUS
approved
