OFFSET
0,3
COMMENTS
FORMULA
a(n) = ( 1 + Sum_{k=0..floor(n/2)-1} a(2*k+1) )^(3-(-1)^n)/2 for n>1.
MATHEMATICA
a[n_] := If[OddQ@n, a[n - 1] + a[n - 2], a[n - 1]^2]; a[0] = 1; Array[a, 17]
PROG
(Magma) [n le 2 select 1 else IsEven(n) select Self(n-1)^2 else Self(n-1)+Self(n-2): n in [1..20]];
CROSSREFS
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, Feb 23 2016
EXTENSIONS
Edited and extended by Bruno Berselli, Feb 25 2016
STATUS
approved