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

Links

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

Formula

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

Example

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

Mathematica

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

Prog

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

Crossrefs

Cf. A035526, A035524.

Sequence in context: A178940 A018264 A081741 * A018311 A018481 A038754

Adjacent sequences: A035519 A035520 A035521 * A035523 A035524 A035525

Keyword

nonn,base,easy,nice

Author

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

Status

approved