OFFSET
3,1
PROG
(PARI) { p=3; S=Set(); while(!setsearch(S, p), S=setunion(S, Set([p])); print1(p, ", "); forprime(q=2, 10^4, if(setsearch(S, q), next); if( isprime(eval(concat(Str(p), Str(q)))) && isprime(eval(concat(Str(q), Str(p)))), p=q; break))) } \\ Max Alekseyev, Apr 24 2009
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), Apr 30 2003
EXTENSIONS
Corrected and extended by Max Alekseyev, Apr 24 2009
STATUS
approved