A031999 Numbers whose base-4 digits are in nonincreasing order.
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
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Range[300], Max[Differences[IntegerDigits[#, 4]]] < 1 &] (* Harvey P. Dale, Apr 27 2017 *)
Comments