A062806 a(n) = Sum_{i=1..n} i*n^i.
1, 10, 102, 1252, 18555, 324726, 6565468, 150652552, 3868151445, 109876543210, 3420886930626, 115835619046764, 4238148192940207, 166614350863692382, 7004068093591806840, 313512663723845890576, 14887093306681068252201, 747445606689889243214802
Offset: 1
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 1..250
Crossrefs
Cf. A068475.
Programs
-
Haskell
a062806 n = sum $ zipWith (*) [1..n] $ iterate (* n) n -- Reinhard Zumkeller, Nov 22 2014
-
Mathematica
Sum[i*n^i, {i, 1, n}]
Formula
a(n) = (n^(n+1)*(n^2-n-1) + n)/(n-1)^2 for n>1. - Dean Hickerson, Jun 26 2001
a(n) = n * A068475(n). - Reinhard Zumkeller, Nov 22 2014