login
A281595
a(n) = (n^n - 3*(n-1)^n + 3*(n-2)^n - (n-3)^n)/6.
3
0, 0, 0, 1, 10, 125, 1890, 33621, 688506, 15958405, 413066170, 11810819141, 369730963602, 12577271147805, 461980538087250, 18223376862518101, 768327068469302218, 34480595937671194805, 1641060381277816308810, 82562177153973368528901, 4378026144983797903473954
OFFSET
0,5
LINKS
MAPLE
a := n -> (n^n-3*(n-1)^n+3*(n-2)^n-(n-3)^n)/6:
seq(a(n), n=0..20);
MATHEMATICA
A281595[n_] := If[n == 0, 0, (n^n - 3*(n-1)^n + 3*(n-2)^n - (n-3)^n)/6];
Array[A281595, 25, 0] (* Paolo Xausa, Jul 10 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Peter Luschny, Jan 26 2017
STATUS
approved