OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Module[{nn=300, pr}, pr={#[[1]], #[[3]]}&/@Partition[Prime[Range[nn]], 3, 1]; Select[Table[FromDigits[Flatten[IntegerDigits/@pr[[n]]]], {n, Length[ pr]}], PrimeQ]] (* Harvey P. Dale, Nov 29 2015 *)
PROG
(PARI) for(n=1, 1e3, if(isprime(k=eval(Str(prime(n), prime(n+2)))), print1(k", ")))
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Altug Alkan, Aug 22 2015
STATUS
approved