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

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

Offset

1,51

Links

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

Maple

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

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

Prog

(MATLAB) n = 1:10000; a = arrayfun(@(m) sum(diff(dec2base(m, 6)-'0')>0), n); % Chris R. Rehmann, Nov 24 2025

Crossrefs

Cf. A007092, A037821.

Cf. A037800, A037801, A037802, A037803, A037805, A037806, A037807, A037808.

Sequence in context: A036602 A176166 A167911 * A396299 A316894 A362933

Adjacent sequences: A037801 A037802 A037803 * A037805 A037806 A037807

Keyword

nonn,base,easy

Author

Clark Kimberling

Extensions

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

Status

approved