OFFSET
1,4
FORMULA
MATHEMATICA
NFactorialM[n_Integer, m_Integer] := Block[{k = n, p = Max[1, n]}, While[k > m, k -= m; p *= k]; p]; Table[PrimeOmega[NFactorialM[n, 4]], {n, 100}] (* Wesley Ivan Hurt, May 26 2024 after Robert G. Wilson v *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
STATUS
approved