A288780 Zero together with the row sums of A288778.
0, 0, 2, 9, 36, 165, 918, 6111, 47304, 416097, 4091130, 44417043, 527456556, 6798432069, 94499679582, 1408924024695, 22425642181008, 379514672913321, 6804212771165634, 128827325000617947, 2568509718703606260, 53787877376348226573, 1180349932648067726886
Offset: 0
Keywords
Links
- Alois P. Heinz, Table of n, a(n) for n = 0..450
Programs
-
Maple
a:= proc(n) option remember; `if`(n<3, n*(n-1), n*(a(n-1)*n/(n-1)-a(n-2)*(n-1)/(n-2))) end: seq(a(n), n=0..25); # Alois P. Heinz, Jun 16 2017
-
Mathematica
{0}~Join~Map[Total, Table[(n - k + 1) k! - (k - 1)!, {n, 22}, {k, n}]] (* Michael De Vlieger, Jun 21 2017 *)
Extensions
More terms from Alois P. Heinz, Jun 16 2017
Comments