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