This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A120472 #7 Mar 12 2014 16:36:53 %S A120472 -1,3,-1,7,8,3,12,54,74,133,92,471,296,712,1152,3461,4990,8684,15038, %T A120472 14983,48719,72064,76999,228269,219297,429855,1013331,1003982,1942288, %U A120472 3142688 %N A120472 A004001[n + 1]*Fibonacci[n + 1] - 2*A004001[n]*Fibonacci[n] + A004001[n - 1]*Fibonacci[n - 1]. %t A120472 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}] %Y A120472 Cf. A000045, A004001. %K A120472 sign %O A120472 0,2 %A A120472 _Roger L. Bagula_, Jul 05 2006 %E A120472 Edited by _N. J. A. Sloane_, Oct 01 2006