OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
cdQ[n_]:=Module[{idnd=Abs[Differences[IntegerDigits[n]]]}, Max[idnd]<3 && Min[idnd]>0]; Select[Prime[Range[800]], cdQ] (* Harvey P. Dale, Sep 29 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Apr 15 1999
STATUS
approved