|
| |
| |
|
|
|
-1, 1, -2, 3, 0, -8, 0, 21, 0, 0, -89, 144, -233, 0, 0, 987, 0, 0, 0, -6765, 10946, 0, -28657, 46368, -75025, 0, 196418, -317811, 0, 0
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
MATHEMATICA
| Conway[0] = 0; Conway[1] = Conway[2] = 1; Conway[n_Integer?Positive] := Conway[n] = Conway[Conway[n - 1]] + Conway[n - Conway[n - 1]] a[n_] := Fibonacci[n]*(Conway[n + 1] - 2*Conway[n] + Conway[n - 1]) Table[a[n], {n, 1, 30}]
|
|
|
CROSSREFS
| Cf. A000045, A004001, A120474, A120475.
Sequence in context: A185963 A059034 A171023 * A019911 A173344 A020823
Adjacent sequences: A120470 A120471 A120472 * A120474 A120475 A120476
|
|
|
KEYWORD
| sign
|
|
|
AUTHOR
| Roger Bagula (rlbagulatftn(AT)yahoo.com), Jul 06 2006
|
|
|
EXTENSIONS
| Edited by N. J. A. Sloane (njas(AT)research.att.com), Oct 01, 2006
|
| |
|
|
