OFFSET
0,1
COMMENTS
The next-to-last digit of p is not allowed to be zero.
E.g., after a(5)=311, we don't take 1103 and 1109 but 1117.
LINKS
Zak Seidov, Table of n, a(n) for n = 0..1000
MATHEMATICA
s={11}; id2={1, 1}; Do[Do[p=Prime[k]; If[FreeQ[s, p], idp=IntegerDigits[p]; If[id2==Take[idp, 2]&&idp[[ -2]]>0, AppendTo[s, p]; id2=Take[idp, -2]; Break[]]], {k, 6, 10^7}], {1000}]; s
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Aug 09 2010
STATUS
approved