|
| |
|
|
A112539
|
|
Half-baked Thue-Morse: at successive steps the sequence or its bit-inverted form is appended to itself.
|
|
0
| |
|
|
1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 0
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| s = {1}; Do[s = Join[s, Mod[s + 1, 2]]; s = Join[s, s], {n, 4}]; s (* Robert G. Wilson v *)
|
|
|
PROG
| s=[1 0]; loop s=[s s]; s=[s inv(s)] endloop
|
|
|
CROSSREFS
| Cf. A104104, A010060.
Sequence in context: A090626 A129569 A030658 * A104104 A078588 A039983
Adjacent sequences: A112536 A112537 A112538 * A112540 A112541 A112542
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Alexandre E. Losev (alosev(AT)svr.igic.bas.bg), Dec 15 2005
|
|
|
EXTENSIONS
| More terms from Robert G. Wilson v (rgwv(at)rgwv.com), Dec 22 2005
|
| |
|
|
