A055953 n - reversal of base 6 digits of n (written in base 10).
0, 0, 0, 0, 0, 0, 5, 0, -5, -10, -15, -20, 10, 5, 0, -5, -10, -15, 15, 10, 5, 0, -5, -10, 20, 15, 10, 5, 0, -5, 25, 20, 15, 10, 5, 0, 35, 0, -35, -70, -105, -140, 35, 0, -35, -70, -105, -140, 35, 0, -35, -70, -105, -140, 35, 0, -35, -70, -105, -140, 35, 0, -35, -70, -105, -140, 35, 0, -35, -70, -105, -140, 70, 35, 0, -35, -70
Offset: 0
Links
- Paolo Xausa, Table of n, a(n) for n = 0..10000
Programs
-
Mathematica
Table[n - IntegerReverse[n, 6], {n, 0, 100}] (* Paolo Xausa, Aug 08 2024 *)
Formula
a(n) = n - A030105(n).
Comments