OFFSET
1,1
COMMENTS
LINKS
Paolo P. Lava, Table of n, a(n) for n = 1..1000
EXAMPLE
The prime number 179 is in the sequence because 17 and 79 are primes.
MAPLE
with(numtheory):
for m from 1 to 200 do:
n:=ithprime(m):x:=convert(n, base, 10):n1:=nops(x):
s1:=sum('x[i]*10^(i-1) ', 'i'=1..n1-1):
s2:=(n-irem(n, 10))/10:
if type(s1, prime)=true and type(s2, prime)=true
then
printf(`%d, `, n):
else
fi:
od:
MATHEMATICA
Select[Prime[Range[1000]], (id = IntegerDigits[#]; PrimeQ[FromDigits[Take[id, {1, -2}]]] && PrimeQ[FromDigits[Take[id, {2, -1}]]]) &] (* César Eliud Lozada, Mar 31 2024 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Michel Lagneau, Jun 25 2014
EXTENSIONS
Inserted missing term a(49) and corrected a(50) by Paolo P. Lava, Dec 04 2017
STATUS
approved