A055957 n - reversal of base 8 digits of n (written in base 10).
0, 0, 0, 0, 0, 0, 0, 0, 7, 0, -7, -14, -21, -28, -35, -42, 14, 7, 0, -7, -14, -21, -28, -35, 21, 14, 7, 0, -7, -14, -21, -28, 28, 21, 14, 7, 0, -7, -14, -21, 35, 28, 21, 14, 7, 0, -7, -14, 42, 35, 28, 21, 14, 7, 0, -7, 49, 42, 35, 28, 21, 14, 7, 0, 63, 0, -63, -126, -189, -252, -315, -378, 63, 0, -63, -126, -189, -252, -315
Offset: 0
Programs
-
Mathematica
Array[#-FromDigits[Reverse[IntegerDigits[#,8]],8]&,80,0] (* Harvey P. Dale, Jun 05 2012 *)
Formula
a(n) = n - A030107(n).
Comments