|
Search: id:A140592
|
|
| |
|
| 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; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
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.
Adjacent sequences: A140589 A140590 A140591 this_sequence A140593 A140594 A140595
Sequence in context: A131854 A005124 A050941 this_sequence A032784 A047268 A039580
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Jul 06 2008
|
|
|
Search completed in 0.002 seconds
|
