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

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

Offset

1,1

Comments

The next term is too large to include.

Links

Table of n, a(n) for n=1..7.

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.

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)

Crossrefs

Sequence in context: A303897 A060032 A109643 * A043646 A296886 A077376

Adjacent sequences: A080823 A080824 A080825 * A080827 A080828 A080829

Keyword

nonn,easy

Author

N. J. A. Sloane, Mar 28 2003

Extensions

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

Status

approved