OFFSET
1,2
COMMENTS
M(2) = (1+sqrt(2))/2, M(3) = 4/3.
M(n) = exp(1) - 2*Pi^2*exp(1)/(log(n))^2 + O(1/(log(n))^3), [de Bruijn, 1963].
REFERENCES
N. G. de Bruijn, Carleman's inequality for finite series, Nederl. Akad. Wetensch. Proc. Ser. A 66 = Indag, Math., 25:505-514, 1963.
R. Witula, D. Jama, D. Slota, E. Hetmaniok, Finite version of Carleman's and Knopp's inequalities, Zeszyty naukowe Politechniki Slaskiej (Gliwice, Poland) 92 (2010), 93-96.
LINKS
Steven R. Finch, Carleman's inequality, 2013. [Cached copy, with permission of the author]
Yu-Dong Wu, Zhi-Hua Zhang and Zhi-Gang Wang, The Best Constant for Carleman's Inequality of Finite Type, Acta Mathematica Academiae Paedagogicae Nyiregyhaziensis, Vol. 24, No. 2, 2008.
EXAMPLE
1.5800372106320523520840634981832644921128158059165961970174236920601537371...
MATHEMATICA
RealDigits[c7/.FindRoot[{1 + x2/2 + x3/3 + x4/4 + x5/5 + x6/6 + x7/7 == c7, x2/2 + x3/3 + x4/4 + x5/5 + x6/6 + x7/7 == c7*x2^2, x3/3 + x4/4 + x5/5 + x6/6 + x7/7 == c7*x3^3/x2^2, x4/4 + x5/5 + x6/6 + x7/7 == c7*x4^4/x3^3, x5/5 + x6/6 + x7/7 == c7*x5^5/x4^4, x6/6 + x7/7 == c7*x6^6/x5^5, x7/7 == c7*x7^7/x6^6}, {{c7, 3/2}, {x2, 1/2}, {x3, 1/2}, {x4, 1/2}, {x5, 1/2}, {x6, 1/2}, {x7, 1/2}}, WorkingPrecision->120], 10, 105][[1]]
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Vaclav Kotesovec, Oct 27 2014
STATUS
approved