OFFSET
1,3
LINKS
Vincenzo Librandi and Ray Chandler, Table of n, a(n) for n = 1..1000 (first 800 terms from Vincenzo Librandi)
MATHEMATICA
Select[Range[0, 4000], Max[Differences[IntegerDigits[#, 3]]] <= 0 &] (* Vincenzo Librandi, Dec 26 2012 *)
Select[Range[0, 600], GreaterEqual@@IntegerDigits[#, 3]&] (* Ray Chandler, Jan 06 2014 *)
PROG
(PARI) is(n)=n=digits(n, 3); n==vecsort(n, , 4) \\ Charles R Greathouse IV, Mar 31 2014
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved