login
A055944
a(n) = n + (reversal of base-2 digits of n) (written in base 10).
13
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
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 *)
Array[#+FromDigits[Reverse[IntegerDigits[#, 2]], 2]&, 70, 0] (* Harvey P. Dale, Feb 09 2025 *)
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
KEYWORD
base,nonn
AUTHOR
Henry Bottomley, Jul 18 2000
STATUS
approved