OFFSET
1,3
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..747
FORMULA
MATHEMATICA
a[n_] := Module[{k = 1}, NestWhile[# / (++k)! &, n!, IntegerQ] * k!]; Array[a, 30] (* Amiram Eldar, May 14 2024 *)
PROG
(PARI) a(n)=n!/prod(i=1, if(n<0, 0, s=1; while(n!%prod(i=1, s, i!)==0, s++); s-1), i!)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Sep 17 2002
EXTENSIONS
More terms from Amiram Eldar, May 14 2024
STATUS
approved