A297233 Total variation of base-11 digits of n; see Comments.
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 2, 1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 3, 2, 1, 0, 1, 2, 3, 4, 5, 6, 7, 4, 3, 2, 1, 0, 1, 2, 3, 4, 5, 6, 5, 4, 3, 2, 1, 0, 1, 2, 3, 4, 5, 6, 5, 4, 3, 2, 1, 0, 1, 2, 3, 4, 7, 6, 5, 4, 3, 2, 1, 0, 1, 2
Offset: 1
Examples
2^20 in base 11: 6, 5, 6, 8, 10, 1; here, DV = 12 and UV = 5, so that a(2^20) = 17.
Links
- Clark Kimberling, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
b = 11; z = 120; t = Table[Total@Flatten@Map[Abs@Differences@# &, Partition[IntegerDigits[n, b], 2, 1]], {n, z}] (* cf. Michael De Vlieger, e.g. A037834 *)
Comments