|
%I #6 Mar 30 2012 18:57:23
%S 5,1,1,1,1,2,7,1,7,3,1,5,2,5,1,1,1,3,6,8,26,2,1,2,3,1,1,1,13,1,10,2,5,
%T 1,10,1,1,4,1,1,2,1,3,3,2,7,1,2,21,1,1,1,1,3,2,8,9,4,2,8,1,2,1,7,1,1,
%U 19,1,4,9,1,2,1,4,2,1,4,1,4,6,2,5,10,1,2,2,10,1,1,25,1,4,13,9,2,1,2,4,8,1,1,33,1,2,1,1,1,21,1,3,1,18,1,6,43,2,1,1,1,8
%N Continued fraction of e+sqrt(1+e^2).
%C See A188640 for the origin of this constant.
%F e+sqrt(1+e^2)) = 5.614668.. = [5,1,1,1,1,2,7,1,7,3,1,5,2,5,1,1,1,...].
%t r = 2*E; t = (r + (4 + r^2)^(1/2))/2; FullSimplify[t]
%t N[t, 130]
%t RealDigits[N[t, 130]][[1]]
%t ContinuedFraction[t, 120]
%Y Cf. A188640, A188721.
%K nonn,cofr
%O 1,1
%A _Clark Kimberling_, Apr 10 2011
|
