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,2

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

Formula

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

Mathematica

f[n_] := Block[{id = IntegerDigits[n, 2]}, FromDigits[id + Reverse@id, 2]]; Array[f, 69, 0] (* Robert G. Wilson v, Nov 07 2010 *)

Prog

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

Crossrefs

Cf. A030101, A035522 (iterated), A055948.

Sequence in context: A332462 A358137 A256662 * A331633 A350801 A073740

Adjacent sequences: A055941 A055942 A055943 * A055945 A055946 A055947

Keyword

base,nonn

Author

Henry Bottomley, Jul 18 2000

Status

approved