OFFSET
0,3
MATHEMATICA
A369027[n_] := If[n == 1, 0, n^2 (n-1)^(n-1) / 2];
Array[A369027, 30, 0] (* Paolo Xausa, Jan 12 2024 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Peter Luschny, Jan 12 2024
STATUS
approved