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

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

Offset

1,9

Links

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

Maple

A037826 := proc(n)
    a := 0 ;
    dgs := convert(n, base, 3);
    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. A037810.

Sequence in context: A337621 A091243 A306615 * A079882 A362415 A317335

Adjacent sequences: A037823 A037824 A037825 * A037827 A037828 A037829

Keyword

nonn,base

Author

Clark Kimberling

Extensions

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

Status

approved