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