A037829 Number of i such that d(i) >= d(i-1), where Sum_{i=0..m} d(i)*6^i is the base-6 representation of n.

0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 2, 2, 2, 1, 1, 1, 1

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Crossrefs

Cf. A038713.

Programs

Maple

A037829 := 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+1 ;
        end if;
    end do:
    a ;
end proc: # R. J. Mathar, Oct 16 2015

Extensions

Sign in Name corrected by R. J. Mathar, Oct 16 2015