OFFSET
1,3
LINKS
Clark Kimberling, Table of n, a(n) for n = 1..1000
EXAMPLE
a(6) = 3 because (5^2)*2! < 6! <= (5^3)*3!.
MATHEMATICA
Table[m=1; While[n!>(5^m)*m!, m++]; m, {n, 1, 100}]
Module[{nn=70, m}, mt=Table[{m, m! 5^m}, {m, nn}]; Table[SelectFirst[mt, #[[2]] >= n!&], {n, nn}]][[All, 1]] (* Harvey P. Dale, Sep 23 2018 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Jul 17 2012
STATUS
approved