|
%I #16 Sep 08 2022 08:45:57
%S 1,2,11,32,1,4,10,2,1,1,3,1,1,5,2,3,2,1,4,2,3,2,41,1,2,1,1,3,4,1,35,1,
%T 5,1,29661,2,1,1,2,1,1,1,1,1,2,5,2,2,2,1,1,1,5,15,2,1,1,1,2,7,1,1,1,
%U 13,1,1,1,1,20,2,1,2,1,1,1,1,1,4,1,1,1,1,3,14,1,8,2,1,1,1,1,2,1,3,2,3,1,8,2
%N Continued fraction of (1 + sqrt(1 + 2x))/2, where x=sqrt(2).
%C 1 followed by A190259.
%H G. C. Greubel, <a href="/A190261/b190261.txt">Table of n, a(n) for n = 1..10000</a>
%t r=2^(1/2);
%t FromContinuedFraction[{1, r, {1, r}}]
%t FullSimplify[%]
%t ContinuedFraction[%, 100] (* A190261 *)
%t RealDigits[N[%%, 120]] (* A190260 *)
%t N[%%%, 40]
%t ContinuedFraction[(1+Sqrt[1+2Sqrt[2]])/2,100] (* _Harvey P. Dale_, Jan 27 2013 *)
%o (PARI) contfrac((1+sqrt(1+2*sqrt(2)))/2) \\ _G. C. Greubel_, Dec 26 2017
%o (Magma) ContinuedFraction((1+Sqrt(1+2*Sqrt(2)))/2) // _G. C. Greubel_, Dec 26 2017
%Y Cf. A190260, A190259.
%K nonn,cofr
%O 1,2
%A _Clark Kimberling_, May 06 2011
|
