A055948 n + reversal of base 4 digits of n (written in base 10).
0, 2, 4, 6, 5, 10, 15, 20, 10, 15, 20, 25, 15, 20, 25, 30, 17, 34, 51, 68, 25, 42, 59, 76, 33, 50, 67, 84, 41, 58, 75, 92, 34, 51, 68, 85, 42, 59, 76, 93, 50, 67, 84, 101, 58, 75, 92, 109, 51, 68, 85, 102, 59, 76, 93, 110, 67, 84, 101, 118, 75, 92, 109, 126, 65, 130, 195
Offset: 0
Links
Programs
-
Haskell
a055948 n = n + a030103 n -- Reinhard Zumkeller, Oct 10 2011
-
Mathematica
Table[n+FromDigits[Reverse[IntegerDigits[n,4]],4],{n,0,70}] (* Harvey P. Dale, Nov 24 2021 *)
Formula
a(n) = n + A030103(n).
Comments