OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
For n=6 the primes generated are 67 and 89 so 67 is in the sequence.
MATHEMATICA
fd[lst_]:=FromDigits[Flatten[IntegerDigits/@lst]]; ppcQ[n_]:=And@@ PrimeQ[ {fd[{n, n+1}], fd[{n+2, n+3}]}]; fd[{#, #+1}]&/@Select[Range[10000], ppcQ] (* Harvey P. Dale, Aug 07 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Ki Punches, Feb 16 2009
EXTENSIONS
Edited and extended by Ray Chandler, Feb 20 2009
STATUS
approved