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,5

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

Table of n, a(n) for n=0..25.

Index entries for sequences related to factorial numbers.

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 *)

Crossrefs

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

Cf. A180064.

Sequence in context: A227511 A249807 A180064 * A335183 A129357 A100303

Adjacent sequences: A105347 A105348 A105349 * A105351 A105352 A105353

Keyword

nonn

Author

Reinhard Zumkeller, Apr 01 2005

Extensions

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

Edited by Andrey Zabolotskiy, Oct 18 2023

Status

approved