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

Links

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

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

Crossrefs

Cf. A038713.

Sequence in context: A274468 A211993 A185646 * A270992 A117546 A274196

Adjacent sequences: A037826 A037827 A037828 * A037830 A037831 A037832

Keyword

nonn,base

Author

Clark Kimberling

Extensions

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

Status

approved