A040634 Continued fraction for sqrt(660).

25, 1, 2, 4, 2, 1, 50, 1, 2, 4, 2, 1, 50, 1, 2, 4, 2, 1, 50, 1, 2, 4, 2, 1, 50, 1, 2, 4, 2, 1, 50, 1, 2, 4, 2, 1, 50, 1, 2, 4, 2, 1, 50, 1, 2, 4, 2, 1, 50, 1, 2, 4, 2, 1, 50, 1, 2, 4, 2, 1, 50, 1, 2, 4, 2, 1, 50, 1, 2, 4, 2, 1, 50, 1, 2, 4, 2, 1, 50, 1, 2, 4, 2, 1, 50, 1, 2

Offset

0,1

Comments

After the first term, periodic with period 6. - Robert Israel, Jul 27 2014

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..1000

Index entries for continued fractions for constants

Index entries for linear recurrences with constant coefficients, signature (0, 0, 0, 0, 0, 1).

Formula

G.f.: (25+x+2*x^2+4*x^3+2*x^4+x^5+25*x^6) / (1-x^6). - Wesley Ivan Hurt, Jul 29 2014

Maple

with(numtheory): Digits := 300: convert(evalf(sqrt(660)), confrac);

Mathematica

ContinuedFraction[Sqrt[660], 100] (* or *) PadRight[{25}, 100, {50, 1, 2, 4, 2, 1}] (* Harvey P. Dale, Jul 26 2014 *)
CoefficientList[Series[(25 + x + 2*x^2 + 4*x^3 + 2*x^4 + x^5 + 25*x^6)/(1 - x^6), {x, 0, 100}], x] (* Wesley Ivan Hurt, Jul 29 2014 *)
Join[{25}, LinearRecurrence[{0, 0, 0, 0, 0, 1}, {1, 2, 4, 2, 1, 50}, 86]] (* Ray Chandler, Aug 26 2015 *)

Crossrefs

Sequence in context: A040636 A040637 A040635 * A104666 A040633 A040639

Adjacent sequences: A040631 A040632 A040633 * A040635 A040636 A040637

Keyword

nonn,cofr,easy

Author

N. J. A. Sloane.

Status

approved