A297236 Total variation of base-12 digits of n; see Comments.
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2, 1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 3, 2, 1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 4, 3, 2, 1, 0, 1, 2, 3, 4, 5, 6, 7, 5, 4, 3, 2, 1, 0, 1, 2, 3, 4, 5, 6, 6, 5, 4, 3, 2, 1, 0, 1, 2, 3, 4, 5, 7, 6, 5
Offset: 1
Examples
2^20 in base 12: 4, 2, 6, 9, 9, 4; here, DV = 7 and UV = 7, so that a(2^20) = 14.
Links
- Clark Kimberling, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
b = 12; 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