A023760 Nialpdromes: digits in base 4 are in nonincreasing order.
0, 1, 2, 3, 4, 5, 8, 9, 10, 12, 13, 14, 15, 16, 20, 21, 32, 36, 37, 40, 41, 42, 48, 52, 53, 56, 57, 58, 60, 61, 62, 63, 64, 80, 84, 85, 128, 144, 148, 149, 160, 164, 165, 168, 169, 170, 192, 208, 212, 213, 224, 228, 229, 232, 233, 234, 240, 244, 245, 248
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[#, 4]]] <= 0 &] (* Vincenzo Librandi, Dec 26 2012 *) Select[Range[0, 250], GreaterEqual@@IntegerDigits[#, 4] &] (* Ray Chandler, Jan 06 2014 *)