OFFSET
0,2
COMMENTS
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (5, -10, 10, -5, 1).
MAPLE
seq(n^4+n^3+n^2+n, n=0..50); # Muniru A Asiru, Jul 15 2018
MATHEMATICA
lst={}; Do[AppendTo[lst, n^4+n^3+n^2+n], {n, 0, 5!}]; lst (* Vladimir Joseph Stephan Orlovsky, Nov 20 2008 *)
Table[Total[n^Range[4]], {n, 0, 40}] (* or *) LinearRecurrence[{5, -10, 10, -5, 1}, {0, 4, 30, 120, 340}, 40] (* Harvey P. Dale, Jul 01 2017 *)
PROG
(Magma) [n^4 + n^3 + n^2 + n^1: n in [0..50]]; // Vincenzo Librandi, Jun 09 2011
(GAP) List([0..50], n->n^4+n^3+n^2+n); # Muniru A Asiru, Jul 15 2018
(PARI) a(n)=n^4+n^3+n^2+n^1 \\ Charles R Greathouse IV, Oct 21 2022
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
STATUS
approved