A037815 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, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1

Offset

1,73

Links

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

Maple

A037815 := 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. A037831.

Sequence in context: A309286 A102671 A292519 * A347622 A297034 A190311

Adjacent sequences: A037812 A037813 A037814 * A037816 A037817 A037818

Keyword

nonn,base

Author

Clark Kimberling

Extensions

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

Status

approved