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

0, 1, 2, 3, 4, 5, 6, 12, 13, 18, 19, 20, 24, 25, 26, 27, 30, 31, 32, 33, 34, 37, 38, 39, 40, 41, 73, 74, 75, 76, 77, 80, 81, 82, 83, 109, 110, 111, 112, 113, 116, 117, 118, 119, 123, 124, 125, 145, 146, 147, 148, 149, 152, 153, 154, 155

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Crossrefs

Cf. A007092.

Cf. A032858..A032865 for bases 3..10.

Cf. A306106..A306111 and A297147 for bases 3..9 and 10.

Programs

Mathematica

sdQ[n_]:=Module[{s=Sign[Differences[IntegerDigits[n,6]]]},s==PadRight[{}, Length[ s],{-1,1}]]; Select[Range[0,200],sdQ] (* Harvey P. Dale, Dec 15 2017 *)

Extensions

a(1)=0 inserted by Georg Fischer, Dec 18 2020