This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A040240 #26 Feb 14 2024 10:46:20 %S A040240 16,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32, %T A040240 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32, %U A040240 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 %N A040240 Continued fraction for sqrt(257). %H A040240 <a href="/index/Con#confC">Index entries for continued fractions for constants</a> %H A040240 <a href="/index/Di#divseq">Index to divisibility sequences</a> %H A040240 <a href="/index/Rec#order_01">Index entries for linear recurrences with constant coefficients</a>, signature (1). %F A040240 From _Elmo R. Oliveira_, Feb 13 2024: (Start) %F A040240 a(n) = 32 for n >= 1. %F A040240 G.f.: 16*(1+x)/(1-x). %F A040240 E.g.f.: 32*exp(x) - 16. %F A040240 a(n) = 16*A040000(n) = 8*A040002(n) = 4*A040012(n) = 2*A040056(n). (End) %e A040240 16 + 1/(32 + 1/(32 + 1/(32 + 1/(32 + ...)))) = sqrt(257). %p A040240 with(numtheory): Digits := 300: convert(evalf(sqrt(257)),confrac); %t A040240 Block[{$MaxExtraPrecision=1000}, ContinuedFraction[Sqrt[257],100]] (* or *) PadRight[{16},100,{32}] (* _Harvey P. Dale_, Aug 15 2021 *) %o A040240 (PARI) a(n)=if(n,32,16) \\ _Charles R Greathouse IV_, Apr 08 2012 %Y A040240 Cf. A041480/A041481 (convergents). %Y A040240 Cf. A040000, A040002, A040012, A040056. %K A040240 nonn,cofr,easy %O A040240 0,1 %A A040240 _N. J. A. Sloane_