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

0, 1, 2, 3, 4, 8, 9, 12, 13, 14, 17, 18, 19, 33, 34, 35, 38, 39, 49, 50, 51, 54, 55, 59, 68, 72, 73, 76, 77, 78, 132, 136, 137, 140, 141, 142, 152, 153, 156, 157, 158, 196, 200, 201, 204, 205, 206, 216, 217, 220, 221, 222, 236, 237, 238

Offset

1,3

Links

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

Mathematica

Join[{0}, Select[Range[250], (Sign/@Differences[IntegerDigits[#, 4]]) == PadRight[ {}, IntegerLength[#, 4]-1, {-1, 1}]&]] (* Harvey P. Dale, Sep 18 2022 *)

Crossrefs

Cf. A007090, A306106.

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

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

Sequence in context: A116111 A253278 A184807 * A032883 A023786 A018231

Adjacent sequences: A032856 A032857 A032858 * A032860 A032861 A032862

Keyword

nonn,base

Author

Clark Kimberling

Extensions

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

Status

approved