%I A122570
%S A122570 0,2,6,150,27030,2523490710,7608434000728254870,
%T A122570 199931532107794273605284333428918544790,
%U A122570 47758914269546354982683078068829456704164423862093743397580034411621752859030
%N A122570 Consider the Thue-Morse sequence (A010060) at each iteration. Read each 
               reversed string as a binary number and convert it to a decimal number.
%H A122570 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               Thue-MorseSequence.html">Link to a section of The World of Mathematics</
               a>
%F A122570 T[n,m]=ThueMorse[n, 0], a(n) = Sum[T[n,m]*2^(m - 1), {m, 1, 2^(n - 1)}]
%t A122570 FromDigits[ #, 2] & /@ NestList[Flatten[ # /. {1 -> {0, 1}, 0 -> {1, 
               0}}] &, {0}, 8] (* Robert G. Wilson v Sep 25 2006 *)
%Y A122570 Cf. A010060, A010059, A014571.
%Y A122570 Sequence in context: A164764 A024397 A015173 this_sequence A088430 A051240 
               A003189
%Y A122570 Adjacent sequences: A122567 A122568 A122569 this_sequence A122571 A122572 
               A122573
%K A122570 nonn
%O A122570 1,2
%A A122570 Roger Bagula (rlbagulatftn(AT)yahoo.com), Sep 17 2006
%E A122570 Edited by Robert G. Wilson v Sep 25 2006