|
| |
|
|
A140592
|
|
Odd even projection of Thue-Morse A010060: a(n)=If[A010060[n]==0,2*n,2*n+1].
|
|
0
| |
|
|
2, 5, 7, 8, 11, 12, 14, 17, 19, 20, 22, 25, 26, 29, 31, 32, 35, 36, 38, 41, 42, 45, 47, 48, 50, 53, 55, 56, 59, 60, 62, 65, 67, 68, 70, 73, 74, 77, 79, 80, 82, 85, 87, 88, 91, 92, 94, 97, 98, 101, 103, 104, 107, 108, 110, 113, 115, 116, 118, 121, 122, 125, 127, 128
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| This method is a general method of giving a binary sequence amplitude.
|
|
|
FORMULA
| a(n)=If[A010060[n]==0,2*n,2*n+1]
|
|
|
MATHEMATICA
| Clear[a, b, c, d] (*A010060*) ThueMorse[n_, b_] := NestList[ Flatten[ # /. {0 -> {0, 1}, 1 -> {1, 0}}] &, {b}, n]; b = ThueMorse[7, 0][[7]]; c = Table[If[b[[n]] == 0, 2*n, 2*n + 1], {n, 1, Length[b]}]
|
|
|
CROSSREFS
| Cf. A010060.
Sequence in context: A160530 A050941 A153083 * A153086 A032784 A047268
Adjacent sequences: A140589 A140590 A140591 * A140593 A140594 A140595
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Jul 06 2008
|
| |
|
|
