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

%I #12 Nov 21 2013 12:46:34

%S 1,2,3,6,9,18,27,54,81,150,255,510,765,1530,2295,6120,6885,12240,

%T 13005,24480,25245,48960,49725,97920,98685,196224,197757,392448,

%U 393981,785664,788733,1571328,1574397,3144192,3150333,6288384

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

%H Harvey P. Dale, <a href="/A035522/b035522.txt">Table of n, a(n) for n = 0..1000</a>

%F a(n+1) = A055944(a(n)), a(0) = 1. [_Reinhard Zumkeller_, Nov 14 2011]

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

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

%o (Haskell)

%o a035522 n = a035522_list !! n

%o a035522_list = iterate a055944 1

%o -- _Reinhard Zumkeller_, Oct 21 2011

%Y Cf. A035526, A035524.

%K nonn,base,easy,nice

%O 0,2

%A _N. J. A. Sloane_, E. M. Rains