A027445 a(n) = n^4 + n^3 + n^2 + n^1.

0, 4, 30, 120, 340, 780, 1554, 2800, 4680, 7380, 11110, 16104, 22620, 30940, 41370, 54240, 69904, 88740, 111150, 137560, 168420, 204204, 245410, 292560, 346200, 406900, 475254, 551880, 637420, 732540, 837930, 954304, 1082400, 1222980, 1376830, 1544760, 1727604

Offset

0,2

Comments

a(A047203(n)) mod 10 = 0; a(A016861(n)) mod 10 = 4. - Reinhard Zumkeller, Oct 23 2006

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

Equals 2 * A071237(n).

Column k=4 of A228275.

Sequence in context: A166761 A213824 A333277 * A027789 A130424 A005715

Adjacent sequences: A027442 A027443 A027444 * A027446 A027447 A027448

Keyword

nonn,easy

Author

Patrick De Geest

Status

approved