OFFSET
1,1
COMMENTS
Last term is a(87) = 98765431.
LINKS
M. F. Hasler, Table of n, a(n) for n = 1..87. [The full list of terms.]
MATHEMATICA
Select[Prime[Range[1200]], Max[DigitCount[#]] == 1 && And@@Negative[ Differences[IntegerDigits[#]]]&] (* Harvey P. Dale, Oct 22 2011 *)
t={}; Do[p=Prime[n]; If[Select[Differences[IntegerDigits[p]], # >= 0&] == {}, AppendTo[t, p]], {n, 1195}]; t (* Jayanta Basu, May 04 2013 *)
PROG
CROSSREFS
KEYWORD
nonn,base,fini,full
AUTHOR
Patrick De Geest, Nov 15 1999
STATUS
approved