A037825 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, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1

Offset

1,1

Links

Chris R. Rehmann, Table of n, a(n) for n = 1..10000

Maple

A037825 := 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

Mathematica

A037825[n_] := Count[Differences[IntegerDigits[n]], _?Negative];
Array[A037825, 100] (* Paolo Xausa, Jan 26 2026 *)

Prog

(MATLAB) n = 1:10000; a = arrayfun(@(m) sum(diff(num2str(m)-'0')<0), n); % Chris R. Rehmann, Nov 23 2025
(Python)
def a(n):
    d = str(n)[::-1]
    return sum(1 for i in range(1, len(d)) if d[i] > d[i-1])
print([a(n) for n in range(1, 91)]) # Michael S. Branicky, Nov 23 2025

Crossrefs

Cf. A000027, A037808.

Cf. A033264, A037818, A037819, A037820, A037821, A037822, A037823, A037824.

Sequence in context: A302047 A044940 A284261 * A278701 A188300 A380469

Adjacent sequences: A037822 A037823 A037824 * A037826 A037827 A037828

Keyword

nonn,base,easy

Author

Clark Kimberling

Extensions

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

Status

approved