A037839 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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