|
%I #17 Mar 08 2024 09:01:22
%S 1,1,9,105,38505,1771476585,10838310072981296745,
%T 140350834813144189858090274002849666665,
%U 68033174967769840440887906939858451149105560803546820641877549596291376780905
%N Consider the Thue-Morse sequence (A010059) at each iteration. Read each reversed string as a binary number and convert it to a decimal number.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Thue-MorseSequence.html">Thue-Morse Sequence</a>
%F T(n,m)=ThueMorse(n, 1), a(n) = Sum_{m=1..2^(n - 1)} T(n,m)*2^(m - 1).
%t FromDigits[ #, 2] & /@ NestList[Flatten[ # /. {1 -> {0, 1}, 0 -> {1, 0}}] &, {1}, 8] (* _Robert G. Wilson v_, Sep 25 2006 *)
%Y Cf. A010059.
%K nonn,base
%O 1,3
%A _Roger L. Bagula_, Sep 17 2006
%E Edited by _Robert G. Wilson v_, Sep 25 2006
|
