A140514 a(n) = A000931(n+4) - A010060(n).

0, 0, 0, 1, 1, 2, 3, 3, 4, 7, 9, 11, 16, 20, 27, 37, 48, 65, 86, 113, 151, 199, 264, 351, 465, 615, 815, 1081, 1431, 1897, 2513, 3328, 4409, 5842, 7739, 10251, 13581, 17990, 23832, 31572, 41824, 55404, 73395, 97229, 128800, 170625, 226030, 299425, 396655

Offset: 0

Author

Roger L. Bagula and Gary W. Adamson, Jul 01 2008

Keywords

• nonn

Links

• G. C. Greubel, Table of n, a(n) for n = 0..5000
• Eric Weisstein's World of Mathematics, Thue-Morse sequence.

Crossrefs

Cf. A000931, A010060.

Programs

Mathematica

A000931 := LinearRecurrence[{0, 1, 1}, {1, 0, 0}, 500]; Table[A000931[[n + 5]] - ThueMorse[n], {n, 0, 100}] (* G. C. Greubel, Jan 14 2018 *)

Formula

a(n) = A000931(n+4) - A010060(n).

Extensions

Definition simplified, indices clarified, references converted to links, Nov 16 2010