A055955 a(n) = n - reversal of base 7 digits of n (written in base 10).
0, 0, 0, 0, 0, 0, 0, 6, 0, -6, -12, -18, -24, -30, 12, 6, 0, -6, -12, -18, -24, 18, 12, 6, 0, -6, -12, -18, 24, 18, 12, 6, 0, -6, -12, 30, 24, 18, 12, 6, 0, -6, 36, 30, 24, 18, 12, 6, 0, 48, 0, -48, -96, -144, -192, -240, 48, 0, -48, -96, -144, -192, -240, 48, 0, -48, -96, -144, -192, -240, 48, 0, -48, -96, -144, -192, -240
Offset: 0
Programs
-
Mathematica
Table[n-FromDigits[Reverse[IntegerDigits[n,7]],7],{n,0,80}] (* Harvey P. Dale, Jul 22 2015 *)
Formula
a(n) = n - A030106(n).
Comments