login
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
OFFSET
1,1
LINKS
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
KEYWORD
nonn,less
AUTHOR
STATUS
approved