A140592 - OEIS

A140592

a(n) = 2n if A010060(n-1) is 0, and a(n) = 2n+1 if A010060(n-1) is 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