A191686 a(n) = n^(n-1) - (n-1)^(n-1) - ... - 2^(n-1) - 1^(n-1).

1, 1, 4, 28, 271, 3351, 50478, 896848, 18362109, 425695015, 11023082676, 315332380452, 9876127761371, 336120888377743, 12351836713047770, 487443031053702976, 20559664804361256953, 923012267234425940655, 43944912052993796265952, 2211595951039098481159300

Offset: 1

Author

Juri-Stepan Gerasimov, Jun 11 2011

Keywords

• nonn

Examples

			a(1)=1 (=1^0), a(2)=1 (=2^1-1^1), a(3)=4 (=3^2-2^2-1^2).
		

Links

• Seiichi Manyama, Table of n, a(n) for n = 1..387

Crossrefs

Cf. A031971, A000169.

Programs

Maple

A191686 := proc(n) n^(n-1)-add( i^(n-1),i=1..n-1) ; end proc:
seq(A191686(n),n=1..20) ; # R. J. Mathar, Jun 11 2011

Mathematica

Table[n^(n-1)-Total[Range[n-1]^(n-1)],{n,20}] (* Harvey P. Dale, Sep 20 2011 *)

Extensions

Corrected by R. J. Mathar, Jun 11 2011