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

Links

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

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

Crossrefs

Sequence in context: A250002 A035195 A073797 * A037874 A343870 A339070

Adjacent sequences: A037853 A037854 A037855 * A037857 A037858 A037859

Keyword

nonn,base

Author

Clark Kimberling

Extensions

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

Status

approved