%I #8 May 09 2016 04:50:44
%S 1,1,1,1,2,3,5,7,10,16,23,35,53,80,122,187,286,439,675,1041,1608,2491,
%T 3864,6004,9344,14563,22729,35517,55566,87026,136440,214117,336322,
%U 528725,831868,1309817,2063861,3254227,5134497,8106188,12805344,20239959
%N Floor(AGM(1, Fibonacci(n))), where AGM denotes the arithmetic-geometric mean.
%F a(n) ~ Pi * phi^n / (2 * sqrt(5) * log(phi) * n), where phi = A001622 = (1+sqrt(5))/2 is the golden ratio, log(phi) = A002390. - _Vaclav Kotesovec_, May 09 2016
%e a(9) = floor(AGM(1, Fibonacci(9))) = floor(AGM(1, 34)) = 10.
%t Table[Floor[ArithmeticGeometricMean[1, Fibonacci[n]]], {n, 1, 50}] (* _Vaclav Kotesovec_, May 09 2016 *)
%Y Cf. A000040, A127758.
%K nonn
%O 1,5
%A _Alex Ratushnyak_, Dec 25 2013