A120472 A004001[n + 1]*Fibonacci[n + 1] - 2*A004001[n]*Fibonacci[n] + A004001[n - 1]*Fibonacci[n - 1].

-1, 3, -1, 7, 8, 3, 12, 54, 74, 133, 92, 471, 296, 712, 1152, 3461, 4990, 8684, 15038, 14983, 48719, 72064, 76999, 228269, 219297, 429855, 1013331, 1003982, 1942288, 3142688

Offset

0,2

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_] := Conway[n + 1]*Fibonacci[ n + 1] - 2*Conway[n]*Fibonacci[n] + Conway[n - 1]*Fibonacci[n - 1] Table[a[n], {n, 1, 30}]

Crossrefs

Cf. A000045, A004001.

Sequence in context: A091039 A217594 A340616 * A271059 A121370 A137908

Adjacent sequences: A120469 A120470 A120471 * A120473 A120474 A120475

Keyword

sign

Author

Roger L. Bagula, Jul 05 2006

Extensions

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

Status

approved