(MAGMAMagma) I:=[29, 842, 48865, 1417927]; [n le 4 select I[n] else 1684*Self(n-2)-Self(n-4): n in [1..30]]; // Vincenzo Librandi, Nov 30 2013
Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
(MAGMAMagma) I:=[29, 842, 48865, 1417927]; [n le 4 select I[n] else 1684*Self(n-2)-Self(n-4): n in [1..30]]; // Vincenzo Librandi, Nov 30 2013
editing
approved
<a href="/index/Rec#order_04">Index entries for linear recurrences with constant coefficients</a>, signature (0, 1684, 0, -1).
approved
editing
<a href="/index/Rec">Index to sequences with entries for linear recurrences with constant coefficients</a>, signature (0,1684,0,-1).
<a href="/index/Rea#recLCCRec">Index to sequences with linear recurrences with constant coefficients</a>, signature (0,1684,0,-1).
reviewed
approved
proposed
reviewed
editing
proposed
Numerator[Convergents[Sqrt[843], 30]] (* or *) CoefficientList[Series[(29 + 842 x + 29 x^2 - x^3)/(1 - 1684 x^2 + x^4), {x, 0, 30}], x] (* Vincenzo Librandi, Nov 30 2013 *)
(MAGMA) I:=[29, 842, 48865, 1417927]; [n le 4 select I[n] else 1684*Self(n-2)-Self(n-4): n in [1..30]]; // Vincenzo Librandi, Nov 30 2013
proposed
editing
editing
proposed