OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
nn=250; Module[{prs=Prime[Range[nn]], comps, concats}, comps=Take[Complement[ Range[2, Prime[nn]+1], prs], nn]; concats=FromDigits[Flatten[ IntegerDigits/@#]]&/@ Thread[{comps, prs}]; Select[concats, PrimeQ]] (* Harvey P. Dale, Apr 27 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vasiliy Danilov (danilovv(AT)usa.net), Jul 14 1998
EXTENSIONS
Edited by Charles R Greathouse IV, Apr 23 2010
STATUS
approved