A055944 a(n) = n + (reversal of base-2 digits of n) (written in base 10).

0, 2, 3, 6, 5, 10, 9, 14, 9, 18, 15, 24, 15, 24, 21, 30, 17, 34, 27, 44, 25, 42, 35, 52, 27, 44, 37, 54, 35, 52, 45, 62, 33, 66, 51, 84, 45, 78, 63, 96, 45, 78, 63, 96, 57, 90, 75, 108, 51, 84, 69, 102, 63, 96, 81, 114, 63, 96, 81, 114, 75, 108, 93, 126, 65, 130, 99, 164, 85

Offset: 0

Author

Henry Bottomley, Jul 18 2000

Keywords

• base
• nonn

Comments

If n has an even number of digits in base-2 then a(n) is a multiple of 3.

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 0..10000

Crossrefs

Cf. A030101, A035522 (iterated), A055948.

Programs

Haskell

a055944 n = n + a030101 n  -- Reinhard Zumkeller, Nov 14 2011

Mathematica

f[n_] := Block[{id = IntegerDigits[n, 2]}, FromDigits[id + Reverse@id, 2]]; Array[f, 69, 0] (* Robert G. Wilson v, Nov 07 2010 *)
Array[#+FromDigits[Reverse[IntegerDigits[#,2]],2]&,70,0] (* Harvey P. Dale, Feb 09 2025 *)

Formula

a(n) = n + A030101(n).