|
|
A122570
|
|
Consider the Thue-Morse sequence (A010060) at each iteration. Read each reversed string as a binary number and convert it to a decimal number.
|
|
1
|
|
|
0, 2, 6, 150, 27030, 2523490710, 7608434000728254870, 199931532107794273605284333428918544790, 47758914269546354982683078068829456704164423862093743397580034411621752859030
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
T[n,m]=ThueMorse[n, 0], a(n) = Sum[T[n,m]*2^(m - 1), {m, 1, 2^(n - 1)}]
|
|
MATHEMATICA
|
FromDigits[ #, 2] & /@ NestList[Flatten[ # /. {1 -> {0, 1}, 0 -> {1, 0}}] &, {0}, 8] (* Robert G. Wilson v Sep 25 2006 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|