|
Search: id:A120473
|
|
| |
|
| -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; listen)
|
|
|
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: A089134 A084257 A059034 this_sequence A019911 A020823 A021437
Adjacent sequences: A120470 A120471 A120472 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
