|
%I #9 May 01 2015 11:17:47
%S 1,1,1,8,8,6,7,4,4,3,8,6,1,7,7,8,9,5,0,1,7,3,5,3,5,5,6,9,0,5,5,7,7,1,
%T 1,0,0,5,4,9,2,6,7,2,6,4,2,4,2,2,2,3,7,4,2,8,1,5,7,1,2,2,5,3,1,3,1,8,
%U 0,1,4,3,2,9,5,7,3,2,0,6,6,5,0,3,9,0,6,7,0,8,9,6,4,8,3,0,6,8,3,0,1,1,6,6,6
%N Decimal expansion of a constant related to A253268.
%F Equals limit n->infinity A253268(n) / (((1+sqrt(5))/2)^(n*(n+1)*(2*n+1)/6) / 5^(n*(n+1)/4)).
%e 1.1188674438617789501735355690557711005492672642422237428157122531318...
%t (* Iterations: *) Do[Print[N[Product[Fibonacci[k]^k,{k,1,n}] / (GoldenRatio^(n*(n+1)*(2*n+1)/6) / 5^(n*(n+1)/4)),120]],{n,100,1000,100}]
%Y Cf. A062381, A253268.
%K nonn,cons
%O 1,4
%A _Vaclav Kotesovec_, May 01 2015
|
