A105350 Largest squared factorial dividing n!.

1, 1, 1, 1, 4, 4, 36, 36, 576, 576, 518400, 518400, 518400, 518400, 25401600, 25401600, 1625702400, 1625702400, 131681894400, 131681894400, 13168189440000, 13168189440000, 1593350922240000, 1593350922240000, 229442532802560000, 229442532802560000

Offset: 0

Author

Reinhard Zumkeller, Apr 01 2005

Keywords

• nonn

Comments

a(n) = A001044(A056039(n)) = A056038(n)^2.

Whenever n > 1 is not in A056067, a(n) = A180064(n). - Andrey Zabolotskiy, Oct 19 2023

Links

• Index entries for sequences related to factorial numbers.

Crossrefs

Cf. A000142, A000290, A055071, A055772, A056067.

Cf. A180064.

Programs

Mathematica

a[n_] := (For[k = 1, Divisible[n!, k!^2], k++]; (k-1)!^2)
Table[a[n], {n, 0, 24}] (* Jean-François Alcover, Aug 07 2018 *)

Extensions

Data and offset corrected by Jean-François Alcover, Aug 07 2018

Edited by Andrey Zabolotskiy, Oct 18 2023