%I #30 Oct 19 2023 17:43:10
%S 1,1,1,1,4,4,36,36,576,576,518400,518400,518400,518400,25401600,
%T 25401600,1625702400,1625702400,131681894400,131681894400,
%U 13168189440000,13168189440000,1593350922240000,1593350922240000,229442532802560000,229442532802560000
%N Largest squared factorial dividing n!.
%C a(n) = A001044(A056039(n)) = A056038(n)^2.
%C Whenever n > 1 is not in A056067, a(n) = A180064(n). - _Andrey Zabolotskiy_, Oct 19 2023
%H <a href="/index/Fa#factorial">Index entries for sequences related to factorial numbers</a>.
%t a[n_] := (For[k = 1, Divisible[n!, k!^2], k++]; (k-1)!^2)
%t Table[a[n], {n, 0, 24}] (* _Jean-François Alcover_, Aug 07 2018 *)
%Y Cf. A000142, A000290, A055071, A055772, A056067.
%Y Cf. A180064.
%K nonn
%O 0,5
%A _Reinhard Zumkeller_, Apr 01 2005
%E Data and offset corrected by _Jean-François Alcover_, Aug 07 2018
%E Edited by _Andrey Zabolotskiy_, Oct 18 2023
|