|
%I #17 Jan 20 2017 16:37:28
%S 1,1,3,8,55,987,121393,267914296,72723460248141,
%T 43566776258854844738105,7084593923980518516849609894969925639,
%U 690168906931029935139391829792095612517948949963798093315456
%N a(1) = a(2) = 1; for n > 2, a(n) = Knuth's Fibonacci (or circle) product "a(n-1) o a(n-2)".
%H Alois P. Heinz, <a href="/A101361/b101361.txt">Table of n, a(n) for n = 1..17</a>
%H D. E. Knuth, <a href="http://dx.doi.org/10.1016/0893-9659(88)90176-0">Fibonacci multiplication</a>, Appl. Math. Lett. 1 (1988), 57-60.
%F a(n) = Fibonacci(2*Fibonacci(n)).
%F Third-order nonlinear recursion: a(0)=1, a(1)=1, a(2)=3, a(n)=(a(n-1)^2 - a(n-2)^2))/a(n-3). - _T. D. Noe_, Mar 17 2009
%e 1o1 = 3, 1o3 = 8, 3o8 = 55, ...
%p with(combinat); f:=n->fibonacci(2*fibonacci(n));
%p # second Maple program:
%p F:= n-> (<<0|1>, <1|1>>^n)[1, 2]:
%p a:= n-> F(2*F(n)):
%p seq(a(n), n=1..12); # _Alois P. Heinz_, Jan 20 2017
%t Table[ Fibonacci[2Fibonacci[n]], {n, 12}] (* _Robert G. Wilson v_, Feb 12 2005 *)
%o (PARI) a(n)=if(n<1,0,fibonacci(2*fibonacci(n)))
%Y Cf. A000045, A101330.
%K nonn
%O 1,3
%A _N. J. A. Sloane_, Jan 26 2005
%E Formula and more terms from _Michael Somos_, Feb 03 2005
| 