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
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Crossrefs
Programs
-
Mathematica
Join[{0},Select[Range[250],(Sign/@Differences[IntegerDigits[#,4]]) == PadRight[ {},IntegerLength[#,4]-1,{-1,1}]&]] (* Harvey P. Dale, Sep 18 2022 *)
Extensions
a(1)=0 inserted by Georg Fischer, Dec 18 2020