cp's OEIS Frontend

A159820 Continued fraction for e*Pi*phi A131563, where phi = (1 + sqrt(5))/2.

%I A159820 #7 Aug 09 2016 10:51:08
%S A159820 13,1,4,2,13,3,1,1,7,3,30,1,7,1,1,40,2,6,2,1,35,4,1,3,3,1,3,3,8,1,1,4,
%T A159820 3,5,7,1,1,1,1,2,1,2,2,1,188,3,2,1,7,1,1,13,1,7,28,2,2,47,31,1,1,1,5,
%U A159820 3,1,7,2,3,1,3,2,1,3,4,4,2,1,1,3,1,1,1,3,4,1,19,225,1,1,16,1,1,1,1,11,4,3,1
%N A159820 Continued fraction for e*Pi*phi A131563, where phi = (1 + sqrt(5))/2.
%H A159820 Harry J. Smith, <a href="/A159820/b159820.txt">Table of n, a(n) for n = 0..20000</a>
%e A159820 e*Pi*phi = 13.8175802271764... = 13 + 1/(1 + 1/(4 + 1/(2 + 1/(13 + ...)))).
%t A159820 ContinuedFraction[E Pi GoldenRatio,100] (* _Harvey P. Dale_, Aug 09 2016 *)
%o A159820 (PARI) { allocatemem(932245000); default(realprecision, 21000); phi = (1 + sqrt(5))/2; x=contfrac(exp(1)*Pi*phi); for (n=1, 20001, write("b159820.txt", n-1, " ", x[n])); }
%K A159820 nonn
%O A159820 0,1
%A A159820 _Harry J. Smith_, Apr 26 2009