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
KEYWORD
sign
AUTHOR
Roger L. Bagula, Jul 06 2006
EXTENSIONS
Edited by N. J. A. Sloane, Oct 01, 2006
STATUS
approved