|
%I #12 Jan 29 2020 04:39:12
%S 1,2,6,24,24,144,144,1152,10368,20736,20736,248832,248832,497664,
%T 1492992,23887872,23887872,429981696,429981696,1719926784,5159780352,
%U 10319560704,10319560704,247669456896,247669456896,495338913792,13374150672384,53496602689536,53496602689536
%N Largest 3-smooth number dividing n!.
%H Amiram Eldar, <a href="/A118381/b118381.txt">Table of n, a(n) for n = 1..1861</a> (terms below 10^1000)
%H <a href="/index/Fa#factorial">Index entries for sequences related to factorial numbers</a>.
%F a(n) = A060818(n) * A060828(n).
%t s[n_, b_] := Sum[IntegerExponent[k, b], {k, 1, n}]; a[n_] := 2^s[n, 2] * 3^s[n, 3]; Array[a, 30] (* _Amiram Eldar_, Jan 29 2020 *)
%Y Cf. A003586, A000142, A011371, A054861, A060818, A060828.
%K nonn
%O 1,2
%A _Reinhard Zumkeller_, May 16 2006
%E More terms from _Amiram Eldar_, Jan 29 2020
|
