OFFSET
1,1
LINKS
T. D. Noe, Table of n, a(n) for n = 1..10000
G. L. Honaker, Jr. and Chris Caldwell, Prime Curios! 17257
MATHEMATICA
nn=500; t=Union[Reap[Do[n=FromDigits[Join[IntegerDigits[Prime[i]], IntegerDigits[Prime[j]]]]; If[n<=nn, Sow[n]], {i, PrimePi[nn/10]}, {j, PrimePi[nn/IntegerDigits[nn][[1]]]}]][[2, 1]]] (* T. D. Noe, Mar 11 2011 *)
PROG
(Python)
from sympy import isprime
from itertools import count, islice
def agen(): # generator of terms
for k in count(1):
s = str(k)
if any(s[i] != '0' and isprime(int(s[:i])) and isprime(int(s[i:])) for i in range(1, len(s))):
yield k
print(list(islice(agen(), 55))) # Michael S. Branicky, Feb 26 2022
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Eric Angelini and Robert G. Wilson v, May 09 2005
EXTENSIONS
Corrected by Arkadiusz Wesolowski, Mar 11 2011
STATUS
approved