OFFSET
1,1
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..10000
MATHEMATICA
Join[{2, 3, 5, 7}, Select[Prime[Range[230000]], Union[Abs[ Differences[ IntegerDigits[ #]]]]=={2}&]] (* Harvey P. Dale, Nov 03 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Apr 15 1999
STATUS
approved