A120473 - OEIS

%I #7 Mar 12 2014 16:36:53

%S -1,1,-2,3,0,-8,0,21,0,0,-89,144,-233,0,0,987,0,0,0,-6765,10946,0,

%T -28657,46368,-75025,0,196418,-317811,0,0

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

%t 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}]

%Y Cf. A000045, A004001, A120474, A120475.

%K sign

%O 0,3

%A _Roger L. Bagula_, Jul 06 2006

%E Edited by _N. J. A. Sloane_, Oct 01, 2006