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

Author

Clark Kimberling

Keywords

• nonn
• base

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

Crossrefs

Cf. A297330.

Programs

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 *)

Extensions

Updated by Clark Kimberling, Jan 19 2018