A037856 Sum{d(i)-d(i-1): d(i)>d(i-1), i=1,...,m}, where Sum{d(i)*6^i: i=0,1,...,m} is base 6 representation of n.

0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 2, 1, 0, 0, 0, 0, 3, 2, 1, 0, 0, 0, 4, 3, 2, 1, 0, 0, 5, 4, 3, 2, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 2, 1, 0, 0, 0, 0, 3, 2, 1, 0, 0, 0, 4, 3, 2, 1, 0, 0, 5, 4, 3, 2, 1, 0, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 2, 1, 0, 0, 0, 0, 3

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Links

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

Programs

Maple

A037856 := proc(n)
    a := 0 ;
    dgs := convert(n,base,6);
    for i from 2 to nops(dgs) do
        if op(i,dgs)>op(i-1,dgs) then
            a := a+op(i,dgs)-op(i-1,dgs) ;
        end if;
    end do:
    a ;
end proc: # R. J. Mathar, Oct 19 2015

Mathematica

Table[Total[Abs[Select[Differences[IntegerDigits[n,6]],#<0&]]],{n,100}] (* Harvey P. Dale, Apr 18 2022 *)

Extensions

Definition swapped with A037847. - R. J. Mathar, Oct 19 2015