A032846 Numbers whose base-8 representation Sum_{i=0..m} d(i)*8^i has d(m) < d(m-1) > d(m-2) < ...

1, 2, 3, 4, 5, 6, 7, 10, 11, 12, 13, 14, 15, 19, 20, 21, 22, 23, 28, 29, 30, 31, 37, 38, 39, 46, 47, 55, 80, 81, 88, 89, 90, 96, 97, 98, 99, 104, 105, 106, 107, 108, 112, 113, 114, 115, 116, 117, 120, 121, 122, 123, 124, 125, 126, 152, 153

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Programs

Mathematica

Select[Range[200],Sign[Differences[IntegerDigits[#,8]]]==PadRight[ {},IntegerLength[ #,8]-1,{1,-1}]&] (* Harvey P. Dale, Nov 01 2020 *)