OFFSET
1,1
MATHEMATICA
t={}; Do[p = Prime[n]; If[!MemberQ[Differences[IntegerDigits[p]], 0], AppendTo[t, p]], {n, 70}]; t (* Jayanta Basu, May 04 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Sep 15 1999
EXTENSIONS
Offset corrected by Arkadiusz Wesolowski, Jan 12 2012
STATUS
approved