OFFSET
0,3
COMMENTS
It appears that the only squares in this sequence are a(0) = a(1) = 1, a(4) = 144, a(18) = 14671475874842562153331362760375664640000000000.
LINKS
Eric Weisstein's World of Mathematics, Multifactorial.
FORMULA
MATHEMATICA
A[0, k_]:=1; A[n_, k_]:=A[n, k]=If[1 <= n <= k, n, n*A[n - k, k]]; a[n_]:=Product[A[n+1-k, k], {k, n+1}]; Array[a, 17, 0]
(* Alternative: *)
a[n_]:=Product[Product[n+1-m*k, {m, Floor[n/k]}], {k, n}]; Array[a, 17, 0]
CROSSREFS
KEYWORD
nonn,new
AUTHOR
Stefano Spezia, Jul 12 2026
STATUS
approved
