|
%I #8 Jul 11 2013 19:16:26
%S 4,3,0,2,9,6,6,5,3,1,2,4,2,0,2,7,5,7,7,7,2,1,9,8,4,4,5,4,5,8,5,4,8,3,
%T 6,8,9,2,2,0,3,1,5,3,1,7,0,1,1,9,3,9,2,9,9,5,3,6,2,9,4,3,7,5,9,3,3,9,
%U 4,3,9,6,8,6,2,9,2,3,6,3,1,1,1,0,3,9,5,3,0,4,2,8,7,1,0,9,1,2,2,1,9
%N Decimal expansion of 'lambda', a Young-Fejér-Jackson constant linked to the positivity of certain sine sums.
%D Steven R. Finch, Mathematical Constants, Cambridge University Press, 2003, p. 242.
%F lambda = min { x>0 : (1+x)*Pi - tan(x*Pi) = 0 }.
%e 0.43029665312420275777219844545854836892203153170119392995362943759339439686...
%p numdigits:= 120:
%p lambda:= solve((1+x)*Pi = tan(x*Pi), x):
%p s:= convert(evalf(lambda, numdigits+10), string):
%p seq(parse(s[n+1]), n=1..numdigits); # _Alois P. Heinz_, Jul 11 2013
%t lambda /. FindRoot[(1 + lambda)*Pi == Tan[lambda*Pi], {lambda, 2/5}, WorkingPrecision -> 100] // RealDigits // First
%Y Cf. A227422, A227424, A227425.
%K nonn,cons
%O 0,1
%A _Jean-François Alcover_, Jul 11 2013
|
