A023763 Nialpdromes: digits in base 7 are in nonincreasing order.
0, 1, 2, 3, 4, 5, 6, 7, 8, 14, 15, 16, 21, 22, 23, 24, 28, 29, 30, 31, 32, 35, 36, 37, 38, 39, 40, 42, 43, 44, 45, 46, 47, 48, 49, 56, 57, 98, 105, 106, 112, 113, 114, 147, 154, 155, 161, 162, 163, 168, 169, 170, 171, 196, 203, 204, 210, 211, 212, 217, 218
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, 2000], Max[Differences[IntegerDigits[#, 7]]]<=0&] (* Vincenzo Librandi, Dec 26 2012 *) Select[Range[0,218],GreaterEqual@@IntegerDigits[#,7]&] (* Ray Chandler, Jan 06 2014 *)