|
|
A080826
|
|
Successive factors of the Thue-Morse word defined by sequence A001285.
|
|
1
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
The next term is too large to include.
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
More terms from C. Ronaldo (aga_new_ac(AT)hotmail.com), Dec 19 2004
|
|
STATUS
|
approved
|
|
|
|