A035522 Reverse and add (in binary) - written in base 10.

1, 2, 3, 6, 9, 18, 27, 54, 81, 150, 255, 510, 765, 1530, 2295, 6120, 6885, 12240, 13005, 24480, 25245, 48960, 49725, 97920, 98685, 196224, 197757, 392448, 393981, 785664, 788733, 1571328, 1574397, 3144192, 3150333, 6288384

Offset: 0

Author

N. J. A. Sloane, E. M. Rains

Keywords

• nonn
• base
• easy
• nice

Examples

			6 = 110, 110 + 011 = 1001 = 9, so 6 is followed by 9.
		

Links

• Harvey P. Dale, Table of n, a(n) for n = 0..1000

Crossrefs

Cf. A035526, A035524.

Programs

Haskell

a035522 n = a035522_list !! n
a035522_list = iterate a055944 1
-- Reinhard Zumkeller, Oct 21 2011

Mathematica

nxt[n_]:=Module[{idn2=IntegerDigits[n,2]},FromDigits[idn2+ Reverse[ idn2],2]]; NestList[nxt,1,40] (* Harvey P. Dale, Oct 02 2011 *)

Formula

a(n+1) = A055944(a(n)), a(0) = 1. [Reinhard Zumkeller, Nov 14 2011]