OFFSET
1,1
COMMENTS
Primes in A138142. - Omar E. Pol, Dec 07 2008
MATHEMATICA
fQ[n_]:=Module[{id=IntegerDigits[n], }, n < 10 || Union[Differences[id]] == {-1}]; Select[Prime[Range[10000]], fQ] (* Vladimir Joseph Stephan Orlovsky, Dec 29 2010 *)
CROSSREFS
KEYWORD
nonn,base,fini,full
AUTHOR
Patrick De Geest, Nov 15 1999
STATUS
approved