|
|
A118381
|
|
Largest 3-smooth number dividing n!.
|
|
2
|
|
|
1, 2, 6, 24, 24, 144, 144, 1152, 10368, 20736, 20736, 248832, 248832, 497664, 1492992, 23887872, 23887872, 429981696, 429981696, 1719926784, 5159780352, 10319560704, 10319560704, 247669456896, 247669456896, 495338913792, 13374150672384, 53496602689536, 53496602689536
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|