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

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

Offset

1,1

Links

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

Maple

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

Sequence in context: A193095 A011725 A346619 * A023973 A297040 A185705

Adjacent sequences: A037805 A037806 A037807 * A037809 A037810 A037811

Keyword

nonn,base

Author

Clark Kimberling

Extensions

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

Status

approved