A036841 Smallest number k such that floor[(the number of digits in k!) / k] is greater than any j < k.

2, 22, 266, 2712, 27175, 271819, 2718272

Offset

1,1

Comments

The smallest first number (a(1)) must be greater than one; i.e., it is 2. - Harvey P. Dale, Jan 26 2026

Links

Table of n, a(n) for n=1..7.

Mathematica

a = -1; Do[b = Floor[(Floor[Log[10, n! ]] + 1)/n]; If[b > a, Print[n]; a = b], {n, 2, 10^6} ]
DeleteDuplicates[Table[{n, Floor[IntegerLength[n!]/n]}, {n, 2, 2720000}], GreaterEqual[#1[[2]], #2[[2]]]&][[;; , 1]] (* Harvey P. Dale, Jan 25 2026 *)

Crossrefs

Sequence in context: A229465 A072076 A226706 * A307852 A365529 A264836

Adjacent sequences: A036838 A036839 A036840 * A036842 A036843 A036844

Keyword

nonn,base

Author

Robert G. Wilson v, Jan 09 2002

Extensions

a(7) from Farideh Firoozbakht, Nov 27 2006

Status

approved