(MAGMAMagma) [(n^3-n^2)*7^n: n in [1..25]]; /* or */ I:=[0, 196, 6174, 115248]; [n le 4 select I[n] else 28*Self(n-1)-294*Self(n-2)+1372*Self(n-3)-2401*Self(n-4): n in [1..25]]; // Vincenzo Librandi, Feb 12 2013
(MAGMAMagma) [(n^3-n^2)*7^n: n in [1..25]]; /* or */ I:=[0, 196, 6174, 115248]; [n le 4 select I[n] else 28*Self(n-1)-294*Self(n-2)+1372*Self(n-3)-2401*Self(n-4): n in [1..25]]; // Vincenzo Librandi, Feb 12 2013
editing
approved
a(n) = (n^3 - n^2)*7^n.
Corrected the first offset. - _Offset corrected by _Mohammad K. Azarian_, Nov 20 2008
approved
editing
<a href="/index/Rec">Index to sequences with entries for linear recurrences with constant coefficients</a>, signature (28, -294, 1372, -2401).
<a href="/index/Rec#recLCC">Index to sequences with linear recurrences with constant coefficients</a>, signature (28, -294, 1372, -2401).
<a href="/Sindx_Rea.htmlindex/Rec#recLCC">Index to sequences with linear recurrences with constant coefficients</a>, signature (28, -294, 1372, -2401).
editing
approved
LinearRecurrence[{28, -294, 1372, -2401}, {0, 196, 6174, 115248}, 20] (* Harvey P. Dale, Mar 04 2015 *)
approved
editing
__Mohammad K. Azarian__, , Apr 30 2007
Corrected the first offset. - __Mohammad K. Azarian__, , Nov 20 2008
__Mohammad K. Azarian_, _, Apr 30 2007
Corrected the first offset. - __Mohammad K. Azarian_, _, Nov 20 2008