OFFSET
1,1
MAPLE
l:=[]: for n from 1 to 40 do p:=ithprime(n): m:=p: lcon:=cat(op(l)): for i from 1 do if(isprime(parse(cat(lcon, m)))) then l:=[op(l), m]: break fi: m:=parse(cat(p, 2*i-1)) od od: op(l); # C. Ronaldo
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Dec 06 2003
EXTENSIONS
More terms from C. Ronaldo (aga_new_ac(AT)hotmail.com), Jan 18 2005
STATUS
approved