A080826 Successive factors of the Thue-Morse word defined by sequence A001285.

122, 12, 1122, 11212212, 1121221122121122, 11212211221211212212112211212212, 1121221122121121221211221121221122121122112122121121221122121122

Offset: 1

Author

N. J. A. Sloane, Mar 28 2003

Keywords

• nonn
• easy

Comments

The next term is too large to include.

Links

• G. Melançon, Home page [Dead link]
• G. Melançon, Lyndon Factorization of Infinite Words STACS 96 (Grenoble, 1996), 147-154, Lecture Notes in Comput. Sci., 1046, Springer, Berlin, 1996.

Programs

Maple

A080826:= proc(n) option remember: local l,i: if n = 0 then RETURN([1,2,2]) else l:=A080826(n-1):l := subsop(nops(l)=NULL,l):RETURN([op(l),seq(op(A080826(i)),i=0..n-2)]) fi:end; ds:=s->add(s[j]*10^(nops(s)-j),j=1..nops(s)); seq(ds(A080826(n)),n=0..7); (C. Ronaldo)

Extensions

More terms from C. Ronaldo (aga_new_ac(AT)hotmail.com), Dec 19 2004