|
%I #11 Sep 08 2022 08:45:57
%S 2,1,1,4,6,1,2,2,2,1,1,6,1,179,46,1,1,3,2,1,1,3,6,3,1,1,1,1,2,1,1,56,
%T 1,1,1,1,66,1,1,2,17,8,2,7,12,1,1,8,1,2,2,1,1,2,1,12,1,2,2,2,2,1,1,1,
%U 8,1,1,1,1,2,1,2,5,1,6,8,1,1,1,2,7,1,9,1,2,5,7,1,6,1,10,1,2,1,3,47,1,1,998,1
%N Continued fraction of 1+sqrt(1+sqrt(2)).
%C 1
%H G. C. Greubel, <a href="/A190284/b190284.txt">Table of n, a(n) for n = 1..5000</a>
%t FromContinuedFraction[{2, Sqrt[2], {2, r}}]
%t FullSimplify[%]
%t ContinuedFraction[%, 100] (* A190284 *)
%t RealDigits[N[%%, 120]] (* A190283 *)
%o (PARI) contfrac(1+sqrt(1+sqrt(2))) \\ _G. C. Greubel_, Apr 14 2018
%o (Magma) ContinuedFraction(1+Sqrt(1+Sqrt(2))); // _G. C. Greubel_, Apr 14 2018
%Y Cf. A188635, A190283, A190282, A154748.
%K nonn,cofr
%O 1,1
%A _Clark Kimberling_, May 07 2011
|
