OFFSET
1,3
EXAMPLE
a(12) = 1925 since 12! = 479001600 and dividing repeatedly by 12 gives 39916800, 3326400, 277200, 23100, 1925, 160.416666..., ...
MATHEMATICA
Join[{1}, Table[n!/n^IntegerExponent[n!, n], {n, 2, 30}]] (* Harvey P. Dale, May 01 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Henry Bottomley, Feb 19 2001
EXTENSIONS
Offset corrected by Sean A. Irvine, Oct 23 2022
STATUS
approved