OFFSET
0,3
COMMENTS
The closed form comes from taking the derivative of the closed form of A031972, for which each term of this sequence is a derivative. - Jonas Whidden, Oct 18 2011
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 0..250
FORMULA
a(1) = 1. For n > 1, a(n) = ((n-1)*(n+1)*n^n - n^(n+1) + 1)/(n-1)^2. - Jonas Whidden, Oct 18 2011
a(n) = A062806(n) / n for n>=1. - Reinhard Zumkeller, Nov 22 2014
a(n) = [x^(n-1)] 1/((1 - x)*(1 - n*x)^2). - Peter Bala, Feb 12 2024
EXAMPLE
a(2) = Sum_{m = 1..2} m*2^(m-1) = 1 + 2*2 = 5.
MAPLE
a := n->sum(m*n^(m-1), m=1..n);
MATHEMATICA
Join[{0}, Table[Sum[m*n^(m-1), {m, 0, n}], {n, 1, 30}]] (* G. C. Greubel, Oct 13 2018 *)
PROG
(Haskell)
a068475 n = sum $ zipWith (*) [1..n] $ iterate (* n) 1
-- Reinhard Zumkeller, Nov 22 2014
(PARI) for(n=0, 30, print1(if(n==0, 0, sum(m=0, n, m*n^(m-1))), ", ")) \\ G. C. Greubel, Oct 13 2018
(Magma) [0] cat [(&+[m*n^(m-1): m in [0..n]]): n in [1..30]]; // G. C. Greubel, Oct 13 2018
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Francois Jooste (phukraut(AT)hotmail.com), Mar 10 2002
STATUS
approved