A219070 a(n) = (46*n^5 + 30*n^4 + 15*n^3 - n) / 30.

0, 3, 69, 467, 1858, 5479, 13327, 28343, 54596, 97467, 163833, 262251, 403142, 598975, 864451, 1216687, 1675400, 2263091, 3005229, 3930435, 5070666, 6461399, 8141815, 10154983, 12548044, 15372395, 18683873, 22542939, 27014862, 32169903, 38083499, 44836447

Offset: 0

Author

Reinhard Zumkeller, Nov 11 2012

Keywords

• nonn
• easy

Comments

For n > 0: row sums of the triangle A219069.

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 0..1000

Crossrefs

Cf. A000290, A000330, A000538, A000584, A219069.

Programs

Haskell

a219070 n = n * (n * (n * (n * (46 * n + 30) + 15)) - 1) `div` 30 -- Reinhard Zumkeller

Mathematica

Table[(46n^5 + 30n^4 + 15n^3 - n)/30, {n, 0, 39}] (* Alonso del Arte, Nov 12 2012 *)

Maxima

A219070(n):=(46*n^5 + 30*n^4 + 15*n^3-n)/30$
makelist(A219070(n),n,0,30); /* Martin Ettl, Nov 12 2012 */

Formula

a(n) = A000584(n) + A000290(n)*A000330(n) + A000538(n).