login
A281596
a(n) = ((n-2)^n - 2*(n-1)^n + n^n)/2.
5
0, 0, 1, 6, 55, 660, 9751, 170898, 3463615, 79669320, 2050086511, 58346365110, 1819621847407, 61705703989020, 2260586259354151, 88971796139662842, 3743940350046570751, 167735288431662235920, 7971302827015366403551, 400510700317394780627934, 21212944650652080893863087
OFFSET
0,4
LINKS
FORMULA
a(n) ~ n^n*(1/2+(1/2-1/n)*e^(-2)+(1/(2*n)-1)*e^(-1)).
MAPLE
a := n -> ((n-2)^n-2*(n-1)^n+n^n)/2:
seq(a(n), n=0..21);
MATHEMATICA
A281596[n_] := If[n == 0, 0, ((n-2)^n - 2*(n-1)^n + n^n)/2];
Array[A281596, 25, 0] (* Paolo Xausa, Jul 10 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Peter Luschny, Jan 26 2017
STATUS
approved