cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A031145 Factorials with a record number of zeros.

This page as a plain text file.
%I A031145 #31 Jul 08 2025 19:35:30
%S A031145 1,120,5040,479001600,6402373705728000,121645100408832000,
%T A031145 2432902008176640000,1124000727777607680000,
%U A031145 15511210043330985984000000,304888344611713860501504000000
%N A031145 Factorials with a record number of zeros.
%H A031145 Michael De Vlieger, <a href="/A031145/b031145.txt">Table of n, a(n) for n = 0..59</a>
%e A031145 From _Alonso del Arte_, May 19 2017: (Start)
%e A031145 Note that 5040 has two zeros, even though only one of them is a trailing zero.
%e A031145 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.
%e A031145 Thus the next term after 5040 is 479001600, which has four zeros. (End)
%t A031145 Function[s, Map[Position[s, #][[1, 1]] &, Union@ FoldList[Max, s]]! ]@ Table[DigitCount[n!, 10, 0], {n, 28}] (* _Michael De Vlieger_, May 20 2017 *)
%t A031145 DeleteDuplicates[Table[{n!,DigitCount[n!,10,0]},{n,50}],GreaterEqual[#1[[2]],#2[[2]]]&][[;;,1]] (* _Harvey P. Dale_, Dec 03 2023 *)
%Y A031145 Cf. A031144 (indices of factorials), A027868.
%K A031145 nonn,base,easy
%O A031145 0,2
%A A031145 _N. J. A. Sloane_
%E A031145 More terms from _Erich Friedman_.
%E A031145 Name clarified by _Alonso del Arte_, May 19 2017