A120473 a(n) = A000045[n]*(A004001[n + 1] - 2*A004001[n] + A004001[n - 1]).

-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

Offset

0,3

Links

Table of n, a(n) for n=0..29.

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 A276994

Adjacent sequences: A120470 A120471 A120472 * A120474 A120475 A120476

Keyword

sign

Author

Roger L. Bagula, Jul 06 2006

Extensions

Edited by N. J. A. Sloane, Oct 01, 2006

Status

approved