A074073 - OEIS

%I #15 Oct 05 2023 03:27:51

%S 1,4,8,256,32768,4294967296,9223372036854775808,

%T 340282366920938463463374607431768211456,

%U 57896044618658097711785492504343953926634992332820282019728792003956564819968

%N Denominators of iterations of Thue-Morse sequence.

%H Amiram Eldar, <a href="/A074073/b074073.txt">Table of n, a(n) for n = 0..12</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Thue-MorseConstant.html">Thue-Morse Constant</a>.

%t f[0] = 0; f[n_] := (2^(-2^n))*(2^(2^(n - 1)) - 1)*(2^(2^(n - 1))*f[n - 1] + 1); Denominator@ Array[f, 9, 0] (* _Amiram Eldar_, Oct 05 2023 *)

%Y Cf. A074072 (numerators).

%K nonn,frac,easy

%O 0,2

%A _Eric W. Weisstein_, Aug 18 2002

%E a(8) from _Amiram Eldar_, Oct 05 2023