|
%I #25 Sep 28 2020 11:23:43
%S 1,2,2,4,2,4,4,2,2,4,4,4,4,2,2,2,2,4,4,4,4,4,4,4,4,2,2,2,2,2,2,2,2,4,
%T 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,4,4,4,
%U 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
%N Number of right special factors of length n in the Thue-Morse sequence A010060.
%D Michel Rigo, Formal Languages, Automata and Numeration Systems, 2 vols., Wiley, 2014. Mentions this sequence - see "List of Sequences" in Vol. 2.
%H Robert Israel, <a href="/A214212/b214212.txt">Table of n, a(n) for n = 0..10000</a>
%H S. Brlek, <a href="http://dx.doi.org/10.1016/0166-218X(92)90274-E">Enumeration of factors in the Thue-Morse word</a>, Discrete Applied Math. 24 (1989), 83-96.
%H A. de Luca and S. Varricchio, <a href="https://doi.org/10.1016/0304-3975(89)90013-3">Some combinatorial properties of the Thue-Morse sequence and a problem in semigroups</a>, Theoret. Comput. Sci. 63 (1989), 333-348.
%F A005942(n+1) - A005942(n). - _Michel Dekking_, Sep 28 2020
%p ph:=proc(n) option remember;
%p if n=2 then 2 elif n<=3 then n+1 else if n mod 2 = 0 then ph(n/2) else ph((n+1)/2); fi;
%p fi; end;
%t ph[n_] := ph[n] = If[n == 2, 2, If[n <= 3, n+1, If[Mod[n, 2] == 0, ph[n/2], ph[(n+1)/2]]]];
%t ph /@ Range[0, 120] (* _Jean-François Alcover_, Jun 18 2020, after Maple *)
%Y Cf. A010060, A005942, A212214.
%K nonn
%O 0,2
%A _N. J. A. Sloane_, Jul 10 2012
%E Name clarified by _Michel Dekking_, Sep 28 2020
|
