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,3

Links

Table of n, a(n) for n=1..56.

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 *)

Crossrefs

Cf. A007092.

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

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

Sequence in context: A113006 A113323 A108377 * A032885 A023788 A032989

Adjacent sequences: A032858 A032859 A032860 * A032862 A032863 A032864

Keyword

nonn,base

Author

Clark Kimberling

Extensions

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

Status

approved