OFFSET
1,3
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..200
FORMULA
G.f.: x*Sum_{k>=1} k*x^k/(1 - k*x)^2. - Ilya Gutkovskiy, Oct 11 2018
MATHEMATICA
Table[Sum[i (n-i)^i, {i, n}], {n, 30}] (* Harvey P. Dale, Dec 25 2017 *)
PROG
(PARI) a(n)={sum(i=1, n, i*(n - i)^i)} \\ Harry J. Smith, Aug 11 2009
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Olivier Gérard, Jun 23 2001
EXTENSIONS
Prior Mathematica program replaced by Harvey P. Dale, Dec 25 2017
STATUS
approved