%I #10 May 28 2020 04:51:16
%S 0,1,2,5,25,33,429,450,15300,15355,1366595,1366739,318450187,
%T 318450564,194254844040,194254845027,310224987508119,310224987510703,
%U 1297050672782249243,1297050672782256008,14197516664274574263568,14197516664274574281279
%N Alternate multiplying and adding Fibonacci numbers: a(0) = F(0) * F(1), for n >= 0, a(2n+1) = a(2n) + F(2n+2), a(2n+2) = a(2n+1) * F(2n+3).
%e a(0) = 0 * 1 = 0;
%e a(1) = 0 + 1 = 1;
%e a(2) = 1 * 2 = 2;
%e a(3) = 2 + 3 = 5;
%e a(4) = 5 * 5 = 25.
%t a[0] = 0; a[n_] := a[n] = If[EvenQ[n], a[n-1] * Fibonacci[n+1], a[n-1] + Fibonacci[n+1]]; Array[a, 22, 0] (* _Amiram Eldar_, Mar 28 2020 *)
%o (Python)
%o from sympy import fibonacci
%o f = [fibonacci(n) for n in range(200)]
%o def a(n):
%o out = f[0] * f[1]
%o for i in range(1, n+1):
%o if i%2:
%o out += f[i+1]
%o else:
%o out *= f[i+1]
%o return out
%Y Cf. A000045, A047904, A047905, A077138, A222559, A332657, A332659.
%K nonn
%O 0,3
%A _Adnan Baysal_, Mar 27 2020
|