|
%I #13 Sep 16 2017 03:31:14
%S 1,1,4,28,271,3351,50478,896848,18362109,425695015,11023082676,
%T 315332380452,9876127761371,336120888377743,12351836713047770,
%U 487443031053702976,20559664804361256953,923012267234425940655,43944912052993796265952,2211595951039098481159300
%N a(n) = n^(n-1) - (n-1)^(n-1) - ... - 2^(n-1) - 1^(n-1).
%H Seiichi Manyama, <a href="/A191686/b191686.txt">Table of n, a(n) for n = 1..387</a>
%e a(1)=1 (=1^0), a(2)=1 (=2^1-1^1), a(3)=4 (=3^2-2^2-1^2).
%p A191686 := proc(n) n^(n-1)-add( i^(n-1),i=1..n-1) ; end proc:
%p seq(A191686(n),n=1..20) ; # _R. J. Mathar_, Jun 11 2011
%t Table[n^(n-1)-Total[Range[n-1]^(n-1)],{n,20}] (* _Harvey P. Dale_, Sep 20 2011 *)
%Y Cf. A031971, A000169.
%K nonn
%O 1,3
%A _Juri-Stepan Gerasimov_, Jun 11 2011
%E Corrected by _R. J. Mathar_, Jun 11 2011
|
