|
| |
|
|
A140592
|
|
a(n) = 2n if A010060(n-1) is 0, and a(n) = 2n+1 if A010060(n-1) is 1.
|
|
1
|
|
|
|
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;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
G. C. Greubel, Table of n, a(n) for n = 1..8192
|
|
|
FORMULA
|
a(n) = A001969(n) + 2. - R. J. Mathar, Sep 10 2013
|
|
|
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: A050941 A299232 A153083 * A153086 A032784 A277266
Adjacent sequences: A140589 A140590 A140591 * A140593 A140594 A140595
|
|
|
KEYWORD
|
nonn,less
|
|
|
AUTHOR
|
Roger L. Bagula and Gary W. Adamson, Jul 06 2008
|
|
|
STATUS
|
approved
|
| |
|
|
