A023761 Nialpdromes: digits in base 5 are in nonincreasing order.
0, 1, 2, 3, 4, 5, 6, 10, 11, 12, 15, 16, 17, 18, 20, 21, 22, 23, 24, 25, 30, 31, 50, 55, 56, 60, 61, 62, 75, 80, 81, 85, 86, 87, 90, 91, 92, 93, 100, 105, 106, 110, 111, 112, 115, 116, 117, 118, 120, 121, 122, 123, 124, 125, 150, 155, 156, 250, 275, 280, 281
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1001 (adapted to the new offset from _Bruno Berselli_)
Programs
-
Mathematica
Select[Range[0, 4000], Max[Differences[IntegerDigits[#, 5]]]<=0&] (* Vincenzo Librandi, Dec 26 2012 *) Select[Range[0,281],GreaterEqual@@IntegerDigits[#,5]&] (* Ray Chandler, Jan 06 2014 *)