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

0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0

Offset

1,1

Links

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

Maple

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

Sequence in context: A044937 A025459 A079365 * A144600 A011686 A275305

Adjacent sequences: A037819 A037820 A037821 * A037823 A037824 A037825

Keyword

nonn,base

Author

Clark Kimberling

Extensions

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

Status

approved