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,3

Links

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

Example

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

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 *)

Crossrefs

Cf. A031971, A000169.

Sequence in context: A367470 A361049 A245060 * A231694 A112915 A129683

Adjacent sequences: A191683 A191684 A191685 * A191687 A191688 A191689

Keyword

nonn

Author

Juri-Stepan Gerasimov, Jun 11 2011

Extensions

Corrected by R. J. Mathar, Jun 11 2011

Status

approved