A023767 Nialpdromes: digits in base 12 are in nonincreasing order.
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 24, 25, 26, 36, 37, 38, 39, 48, 49, 50, 51, 52, 60, 61, 62, 63, 64, 65, 72, 73, 74, 75, 76, 77, 78, 84, 85, 86, 87, 88, 89, 90, 91, 96, 97, 98, 99, 100, 101, 102, 103, 104, 108, 109, 110, 111, 112, 113, 114, 115, 116
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Range[0, 700], Max[Differences[IntegerDigits[#, 12]]]<=0&] (* Vincenzo Librandi, Dec 26 2012 *) Select[Range[0,116],GreaterEqual@@IntegerDigits[#,12]&] (* Ray Chandler, Jan 06 2014 *)