A055954 a(n) = n + reversal of base 7 digits of n (written in base 10).
0, 2, 4, 6, 8, 10, 12, 8, 16, 24, 32, 40, 48, 56, 16, 24, 32, 40, 48, 56, 64, 24, 32, 40, 48, 56, 64, 72, 32, 40, 48, 56, 64, 72, 80, 40, 48, 56, 64, 72, 80, 88, 48, 56, 64, 72, 80, 88, 96, 50, 100, 150, 200, 250, 300, 350, 64, 114, 164, 214, 264, 314, 364, 78, 128, 178
Offset: 0
Links
- Seiichi Manyama, Table of n, a(n) for n = 0..10000
Programs
-
Mathematica
Table[n+FromDigits[Reverse[IntegerDigits[n,7]],7],{n,0,70}] (* Harvey P. Dale, Jan 29 2020 *)
-
PARI
a(n) = n + fromdigits(Vecrev(digits(n, 7)), 7); \\ Michel Marcus, Aug 08 2024
Formula
a(n) = n + A030106(n).
Comments