A037844 Sum{d(i-1)-d(i): d(i)<d(i-1), i=1,...,m}, where Sum{d(i)*3^i: i=0,1,...,m} is base 3 representation of n.

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

Offset

1,11

Comments

This is the base-3 up-variation sequence; see A297330.

Links

Clark Kimberling, Table of n, a(n) for n = 1..10000

Maple

A037844 := proc(n)
    a := 0 ;
    dgs := convert(n, base, 3);
    for i from 2 to nops(dgs) do
        if op(i, dgs)<op(i-1, dgs) then
            a := a-op(i, dgs)+op(i-1, dgs) ;
        end if;
    end do:
    a ;
end proc: # R. J. Mathar, Oct 16 2015

Mathematica

g[n_, b_] := Differences[IntegerDigits[n, b]]; b = 3; z = 120;
Table[-Total[Select[g[n, b], # < 0 &]], {n, 1, z}];  (*A037853*)
Table[Total[Select[g[n, b], # > 0 &]], {n, 1, z}];   (*A037844*)

Crossrefs

Cf. A037853, A297330.

Sequence in context: A257992 A060952 A297155 * A037880 A241035 A140698

Adjacent sequences: A037841 A037842 A037843 * A037845 A037846 A037847

Keyword

nonn,base

Author

Clark Kimberling

Extensions

Definition corrected by R. J. Mathar, Oct 16 2015

Updated by Clark Kimberling, Jan 18 2018

Status

approved