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

0, 0, 1, 0, 1, 2, 1, 0, 1, 2, 3, 1, 0, 1, 3, 2, 1, 2, 3, 4, 2, 1, 2, 2, 1, 0, 1, 2, 3, 3, 2, 3, 5, 4, 3, 1, 2, 3, 1, 0, 1, 3, 2, 1, 3, 4, 5, 3, 2, 3, 3, 2, 1, 2, 3, 4, 4, 3, 4, 6, 5, 4, 2, 3, 4, 2, 1, 2, 4, 3, 2, 2, 3, 4, 2, 1, 2, 2, 1, 0, 1, 2, 3, 3, 2, 3, 5, 4, 3, 3

Offset

1,6

Comments

This is the base-3 total variation sequence; see A297330. - Clark Kimberling

Links

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

Maple

A037835 := proc(n)
    local dgs ;
    dgs := convert(n, base, 3);
    add( abs(op(i, dgs)-op(i-1, dgs)), i=2..nops(dgs)) ;
end proc: # R. J. Mathar, Oct 16 2015

Mathematica

b = 3; z = 120; t = Table[Total@Flatten@Map[Abs@Differences@# &,      Partition[IntegerDigits[n, b], 2, 1]], {n, z}] (* cf. Michael De Vlieger, A037834 *)

Crossrefs

Cf. A297330.

Sequence in context: A308151 A114219 A119339 * A116433 A360099 A106509

Adjacent sequences: A037832 A037833 A037834 * A037836 A037837 A037838

Keyword

nonn,base

Author

Clark Kimberling

Extensions

Updated by Clark Kimberling, Jan 19 2018

Status

approved