|
| |
|
|
A140514
|
|
a(n) = Padovan(n+4) - ThueMorse(n).
|
|
0
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,6
|
|
|
COMMENTS
| Limit_{n->infinity} a(n+1)/a(n) = A060006.
|
|
|
LINKS
| E. W. Weisstein, Thue-Morse sequence, Mathworld.
Anonmyous, Thue Morse Mathematica notebook, Mathworld.
|
|
|
FORMULA
| a(n) = A000931(n+4)-A010060(n).
|
|
|
MATHEMATICA
| (*A000931*) a[0] = 0; a[1] = 1; a[2] = 1; a[n_] := a[n] = a[n - 2] + a[n - 3]; (*A010060*) b = ThueMorse[7, 0][[7]]; c = Table[a[n], {n, 0, Length[b] - 1}]; d = c - b
|
|
|
CROSSREFS
| Cf. A000931, A010060.
Sequence in context: A170891 A035535 A154309 * A047079 A203990 A156353
Adjacent sequences: A140511 A140512 A140513 * A140515 A140516 A140517
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Jul 01 2008
|
|
|
EXTENSIONS
| Definition simplified, indices clarified, references converted to links [Nov 16, 2010]
|
| |
|
|
