The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A042106 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A042106

Numerators of continued fraction convergents to sqrt(578).
(history; published version)

#17 by Charles R Greathouse IV at Thu Sep 08 08:44:55 EDT 2022

PROG

(MAGMAMagma) I:=[24, 577, 27720, 665857]; [n le 4 select I[n] else 1154*Self(n-2)-Self(n-4): n in [1..30]]; // Vincenzo Librandi, Nov 16 2013

Discussion

Thu Sep 08

08:44

OEIS Server: https://oeis.org/edit/global/2944

#16 by Harvey P. Dale at Sat Jul 04 16:06:17 EDT 2015

STATUS

editing

approved

#15 by Harvey P. Dale at Sat Jul 04 16:06:07 EDT 2015

MATHEMATICA

LinearRecurrence[{0, 1154, 0, -1}, {24, 577, 27720, 665857}, 20] (* Harvey P. Dale, Jul 04 2015 *)

STATUS

approved

editing

#14 by Charles R Greathouse IV at Sat Jun 13 00:49:39 EDT 2015

LINKS

<a href="/index/Rec">Index to sequences with entries for linear recurrences with constant coefficients</a>, signature (0,1154,0,-1).

Discussion

Sat Jun 13

00:49

OEIS Server: https://oeis.org/edit/global/2439

#13 by Charles R Greathouse IV at Fri Jun 12 15:24:24 EDT 2015

LINKS

<a href="/index/Rea#recLCCRec">Index to sequences with linear recurrences with constant coefficients</a>, signature (0,1154,0,-1).

Discussion

Fri Jun 12

15:24

OEIS Server: https://oeis.org/edit/global/2436

#12 by Bruno Berselli at Sat Nov 16 15:04:44 EST 2013

STATUS

editing

approved

#11 by Bruno Berselli at Sat Nov 16 15:04:41 EST 2013

PROG

(MAGMA) I:=[24, 577, 27720, 665857]; [n le 4 select I[n] else 1154*Self(n-2)-Self(n-4): n in [1..30]]; // Vincenzo Librandi, Nov 16 2013

STATUS

reviewed

editing

#10 by Robert G. Wilson v at Sat Nov 16 14:27:18 EST 2013

STATUS

proposed

reviewed

#9 by Vincenzo Librandi at Sat Nov 16 14:25:07 EST 2013

STATUS

editing

proposed

#8 by Vincenzo Librandi at Sat Nov 16 14:24:54 EST 2013

FORMULA

G.f.: -(x^3 - 24*x^2 - 577*x - 24)/(x^4 - 1154*x^2 + 1). - Vincenzo Librandi, Nov 16 2013

MATHEMATICA

Numerator[Convergents[Sqrt[578], 30]] (* _or *) CoefficientList[Series[-(x^3 - 24 x^2 - 577 x - 24)/(x^4 - 1154 x^2 + 1), {x, 0, 30}], x] (* _Vincenzo Librandi_, Nov 16 2013 *)