%I #11 Aug 23 2019 12:25:49
%S 1,13,216,4578,119525,3729451,135771160,5658574916,265921407297,
%T 13918657338925,803220053336096,50674352524725590,3470170166345203477,
%U 256369124879898560271,20325382637400264402000
%N a(n) = sum of n n-th powers starting from n^n.
%H Harvey P. Dale, <a href="/A096141/b096141.txt">Table of n, a(n) for n = 1..351</a>
%F a(n) = n! * [x^n] exp(n*x)*(exp(n*x) - 1)/(exp(x) - 1). - _Ilya Gutkovskiy_, Apr 07 2018
%e a(4) = 4^4 +5^4 + 6^4 +7^4 = 4578.
%t Table[Total[Range[n,2n-1]^n],{n,20}] (* _Harvey P. Dale_, Aug 23 2019 *)
%o (PARI) a(n)=sum(k=n,2*n-1,k^n)
%Y Cf. A031971.
%K nonn
%O 1,2
%A _Amarnath Murthy_, Jul 16 2004
%E Extended by _Ray Chandler_, Jul 17 2004
|