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

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

Offset

1,64

Links

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

Maple

A037831 := proc(n)
    a := 0 ;
    dgs := convert(n, base, 8);
    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. A037815.

Sequence in context: A158819 A031279 A124778 * A188169 A107039 A249771

Adjacent sequences: A037828 A037829 A037830 * A037832 A037833 A037834

Keyword

nonn,base

Author

Clark Kimberling

Extensions

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

Status

approved