A190284 - OEIS

%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