|
%I #14 Sep 08 2022 08:45:56
%S 3,1,1,2,1,1,4,2,4,3,1,5,1,1,3,1,1,1,2,2,2,3,2,1,1,1,2,39,5,2,1,1,1,2,
%T 49,1,4,4,1,13,1,1,2,1,32,6,2,2,1,1,35,15,1,1,1,6,1,6,1,7,2,1,2,1,15,
%U 1,2,4,1,2,3,1,5,1,1,6,4,1,1,16,6,10,3,1,5,6,2,8,1,1,1,3,25,2,10,1,1,1,3,2,25,1,2,1,4,63,1,2,2,1,287,35,1,1,6,3,4,3,10,1
%N Continued fraction of (3+x+sqrt(38+6x))/4, where x=sqrt(13).
%C See A189964 and A188635.
%H G. C. Greubel, <a href="/A189965/b189965.txt">Table of n, a(n) for n = 1..10000</a>
%p Digits:=100: convert(evalf((3+sqrt(13)+sqrt(38+6*sqrt(13)))/4), confrac); # _Wesley Ivan Hurt_, Dec 12 2013
%t (See A189964.)
%t ContinuedFraction[(3 + Sqrt[13] + Sqrt[38 + 6 Sqrt[13]])/4, 100] (* _Wesley Ivan Hurt_, Dec 12 2013 *)
%o (PARI) contfrac((3+sqrt(13)+sqrt(38+sqrt(468)))/4)
%o (Magma) ContinuedFraction( (3 + Sqrt(13) + Sqrt(38 + 6*Sqrt(13)))/4 ); // _G. C. Greubel_, Jan 12 2018
%Y Cf. A189964, A188635.
%K nonn,cofr
%O 1,1
%A _Clark Kimberling_, May 04 2011
|
