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

Offset

1,83

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Formula

For 0 <= j <= 7, a(8*i+j) = a(i) + 1 if (i mod 8) < j, a(i) otherwise. - Robert Israel, May 17 2019

Maple

A037806 := 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. A037823.

Sequence in context: A340945 A224898 A027360 * A038082 A107740 A016016

Adjacent sequences: A037803 A037804 A037805 * A037807 A037808 A037809

Keyword

nonn,base

Author

Clark Kimberling

Extensions

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

Status

approved