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

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

Offset

1,10

Links

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

Maple

A037855 := proc(n)
    a := 0 ;
    dgs := convert(n, base, 5);
    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

Crossrefs

Sequence in context: A103294 A198379 A079680 * A037873 A036869 A145466

Adjacent sequences: A037852 A037853 A037854 * A037856 A037857 A037858

Keyword

nonn,base

Author

Clark Kimberling

Extensions

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

Status

approved