|
|
A031145
|
|
Factorials with a record number of zeros.
|
|
2
|
|
|
1, 120, 5040, 479001600, 6402373705728000, 121645100408832000, 2432902008176640000, 1124000727777607680000, 15511210043330985984000000, 304888344611713860501504000000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
EXAMPLE
|
Note that 5040 has two zeros, even though only one of them is a trailing zero.
Although 3628800 has one more zero than 362880, it still has as many zeros as 5040, and for that reason it is not in this sequence.
Thus the next term after 5040 is 479001600, which has four zeros. (End)
|
|
MATHEMATICA
|
Function[s, Map[Position[s, #][[1, 1]] &, Union@ FoldList[Max, s]]! ]@ Table[DigitCount[n!, 10, 0], {n, 28}] (* Michael De Vlieger, May 20 2017 *)
DeleteDuplicates[Table[{n!, DigitCount[n!, 10, 0]}, {n, 50}], GreaterEqual[#1[[2]], #2[[2]]]&][[;; , 1]] (* Harvey P. Dale, Dec 03 2023 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|