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

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

Offset

1,31

Links

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

Maple

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

Sequence in context: A270648 A331034 A057155 * A037200 A263992 A180174

Adjacent sequences: A037809 A037810 A037811 * A037813 A037814 A037815

Keyword

nonn,base

Author

Clark Kimberling

Extensions

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

Status

approved