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

Offset

1,38

Links

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

Maple

A037803 := 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 15 2015

Crossrefs

Cf. A037820.

Sequence in context: A323017 A273638 A277582 * A184318 A030410 A085301

Adjacent sequences: A037800 A037801 A037802 * A037804 A037805 A037806

Keyword

nonn,base

Author

Clark Kimberling

Extensions

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

Status

approved