login
A191686
a(n) = n^(n-1) - (n-1)^(n-1) - ... - 2^(n-1) - 1^(n-1).
4
1, 1, 4, 28, 271, 3351, 50478, 896848, 18362109, 425695015, 11023082676, 315332380452, 9876127761371, 336120888377743, 12351836713047770, 487443031053702976, 20559664804361256953, 923012267234425940655, 43944912052993796265952, 2211595951039098481159300
OFFSET
1,3
LINKS
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
Sequence in context: A361049 A372747 A245060 * A231694 A112915 A129683
KEYWORD
nonn
AUTHOR
EXTENSIONS
Corrected by R. J. Mathar, Jun 11 2011
STATUS
approved