OFFSET
1,1
COMMENTS
Subsequence of A030461.
LINKS
Jean-Marc Rebert, Table of n, a(n) for n = 1..23
EXAMPLE
MATHEMATICA
Reap[For[record = 0; p = 2, p < 10^8, p = NextPrime[p], If[PrimeQ[pp = FromDigits[Join[IntegerDigits[p], IntegerDigits[np = NextPrime[p]]]]], If[np - p > record, record = np - p; Print[pp]; Sow[pp]]]]][[2, 1]] (* Jean-François Alcover, Mar 02 2016 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Jean-Marc Rebert, Jan 19 2016
STATUS
approved