A023771 Nialpdromes: digits in base 16 are in nonincreasing order.
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 32, 33, 34, 48, 49, 50, 51, 64, 65, 66, 67, 68, 80, 81, 82, 83, 84, 85, 96, 97, 98, 99, 100, 101, 102, 112, 113, 114, 115, 116, 117, 118, 119, 128, 129, 130, 131, 132, 133, 134, 135, 136, 144, 145
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
- Eric Weisstein's World of Mathematics, Digit.
- Eric Weisstein's World of Mathematics, Nialpdrome.
Programs
-
Mathematica
Select[Range[0, 500], Max[Differences[IntegerDigits[#, 16]]]<=0&] (* Vincenzo Librandi, Dec 27 2012 *) Select[Range[0,145],GreaterEqual@@IntegerDigits[#,16]&] (* Ray Chandler, Jan 06 2014 *)