A060068 Divide n! by largest power of n which will leave the result an integer.

1, 1, 2, 6, 24, 20, 720, 630, 4480, 36288, 3628800, 1925, 479001600, 444787200, 387459072, 5108103000, 20922789888000, 60988928000, 6402373705728000, 15205637551104, 5516784599040000, 2322315553259520000, 1124000727777607680000, 135277939046250

Offset

1,3

Links

Table of n, a(n) for n=1..24.

Formula

a(n) = n!/n^A011776(n) = A000142(n)/A060067(n).

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

Cf. A000142, A011776, A060067.

Sequence in context: A354833 A124900 A068819 * A099732 A118381 A123145

Adjacent sequences: A060065 A060066 A060067 * A060069 A060070 A060071

Keyword

nonn

Author

Henry Bottomley, Feb 19 2001

Extensions

Offset corrected by Sean A. Irvine, Oct 23 2022

Status

approved