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
KEYWORD
nonn,less
AUTHOR
Roger L. Bagula and Gary W. Adamson, Jul 06 2008
STATUS
approved