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

Author

Henry Bottomley, Feb 19 2001

Keywords

• nonn

Examples

			a(12) = 1925 since 12! = 479001600 and dividing repeatedly by 12 gives 39916800, 3326400, 277200, 23100, 1925, 160.416666..., ...
		

Crossrefs

Cf. A000142, A011776, A060067.

Programs

Mathematica

Join[{1},Table[n!/n^IntegerExponent[n!,n],{n,2,30}]] (* Harvey P. Dale, May 01 2013 *)

Formula

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

Extensions

Offset corrected by Sean A. Irvine, Oct 23 2022