A023759 Nialpdromes: digits in base 3 are in nonincreasing order.

0, 1, 2, 3, 4, 6, 7, 8, 9, 12, 13, 18, 21, 22, 24, 25, 26, 27, 36, 39, 40, 54, 63, 66, 67, 72, 75, 76, 78, 79, 80, 81, 108, 117, 120, 121, 162, 189, 198, 201, 202, 216, 225, 228, 229, 234, 237, 238, 240, 241, 242, 243, 324, 351, 360, 363, 364, 486, 567, 594

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

Sequence in context: A023747 A366976 A031998 * A004742 A277817 A336231

Adjacent sequences: A023756 A023757 A023758 * A023760 A023761 A023762

Keyword

nonn,base,easy

Author

Olivier Gérard

Status

approved