|
| |
|
|
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.
|
|
0
| |
|
|
0, 2, 6, 150, 27030, 2523490710, 7608434000728254870, 199931532107794273605284333428918544790, 47758914269546354982683078068829456704164423862093743397580034411621752859030
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
LINKS
| Eric Weisstein's World of Mathematics, Link to a section of The World of Mathematics
|
|
|
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
| Cf. A010060, A010059, A014571.
Sequence in context: A164764 A024397 A015173 * A088430 A051240 A003189
Adjacent sequences: A122567 A122568 A122569 * A122571 A122572 A122573
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Roger Bagula (rlbagulatftn(AT)yahoo.com), Sep 17 2006
|
|
|
EXTENSIONS
| Edited by Robert G. Wilson v Sep 25 2006
|
| |
|
|
