%I #24 Jul 04 2024 06:42:59
%S 0,1,267,4,14,1,2,1,2,2,1,2,3,8,3,1,5,4,1,14,10,1,20,38,1,2,7,5,2,1,
%T 10,1,6,1,6,1,2,3,2,1,7,1,1,5,12,2,1,1,1,2,1,1,1,34,1,8,1,33,1,4,7,1,
%U 2,56,1,3,1,34,9,1,1,7,1,3,1,7,1,4,3,1,2,14,1,10,2,51,1,6,7,17,1,14,1,8,1,1
%N Continued fraction expansion of tanh(Pi).
%D J. M. Borwein, D. H. Bailey and R. Girgensohn, Experimentation in Mathematics, A K Peters, Ltd., Natick, MA, 2004. x+357 pp. See p. 11.
%H Harry J. Smith, <a href="/A060402/b060402.txt">Table of n, a(n) for n = 0..20000</a>
%e 0.996272076220749944264690... = 0 + 1/(1 + 1/(267 + 1/(4 + 1/(14 + ...)))). - _Harry J. Smith_, Jul 04 2009
%p with(numtheory): c := cfrac (tanh(Pi),300,'quotients');
%t ContinuedFraction[Tanh[Pi], 100] (* _Paolo Xausa_, Jul 04 2024 *)
%o (PARI) { allocatemem(932245000); default(realprecision, 21000); x=contfrac(tanh(Pi)); for (n=0, 20000, write("b060402.txt", n, " ", x[n+1])); } \\ _Harry J. Smith_, Jul 04 2009
%Y Cf. A083124, A190352.
%K nonn,cofr,easy
%O 0,3
%A _Bill Gosper_, Apr 04 2001
%E More terms from _James A. Sellers_, Apr 06 2001
|