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

0, 0, 0, 0, 0, 0, 1, 0, 1, 2, 3, 4, 5, 2, 1, 0, 1, 2, 3, 4, 3, 2, 1, 0, 1, 2, 3, 4, 3, 2, 1, 0, 1, 2, 5, 4, 3, 2, 1, 0, 1, 6, 5, 4, 3, 2, 1, 0, 1, 2, 3, 4, 5, 6, 7, 1, 0, 1, 2, 3, 4, 5, 3, 2, 1, 2, 3, 4, 5, 5, 4, 3, 2, 3, 4, 5, 7, 6, 5, 4, 3, 4, 5, 9, 8, 7, 6, 5, 4, 5

Offset

1,10

Comments

This is the base-7 total variation sequence; see A297330. - Clark Kimberling, Jan 18 2017

Links

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

Mathematica

b = 7; 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: A350112 A037893 A037901 * A165072 A141404 A212176

Adjacent sequences: A037836 A037837 A037838 * A037840 A037841 A037842

Keyword

nonn,base

Author

Clark Kimberling

Extensions

Updated by Clark Kimberling, Jan 20 2018

Status

approved