%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
|