OFFSET
0,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (20,-150,500,-625).
FORMULA
G.f.: 10*x*(1 + 10*x)/(1 - 5*x)^4. - Vincenzo Librandi, Feb 12 2013
a(n) = 20*a(n-1)-150*a(n-2)+500*a(n-3)-625*a(n-4). - Vincenzo Librandi, Feb 12 2013
MATHEMATICA
CoefficientList[Series[10 x (1 + 10 x)/(1 - 5 x)^4, {x, 0, 30}], x] (* Vincenzo Librandi, Feb 12 2013 *)
Table[(n^3+n^2)5^n, {n, 0, 30}] (* or *) LinearRecurrence[{20, -150, 500, -625}, {0, 10, 300, 4500}, 30] (* Harvey P. Dale, May 15 2022 *)
PROG
(Magma) [(n^3+n^2)*5^n: n in [0..25]]; /* or */ I:=[0, 10, 300, 4500]; [n le 4 select I[n] else 20*Self(n-1)-150*Self(n-2)+500*Self(n-3)-625*Self(n-4): n in [1..25]]; // Vincenzo Librandi, Feb 12 2013
(PARI) A129005(n)=5^n*(1+n)*n^2 \\ - M. F. Hasler, Feb 12 2013
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Mohammad K. Azarian, May 01 2007
EXTENSIONS
Initial term a(0)=0 added by M. F. Hasler, Feb 12 2013
STATUS
approved