OFFSET
1,3
LINKS
Clark Kimberling, Table of n, a(n) for n = 1..1000
EXAMPLE
a(6) = 4 because 3^3*3! < 6! <= 3^4*4!.
MAPLE
A213854 := proc(n)
for m from 1 do
if (3^m)*m! >= n! then
return m;
end if;
end do:
end proc: # R. J. Mathar, Jul 18 2012
MATHEMATICA
Table[m=1; While[n!>(3^m)*m!, m++]; m, {n, 1, 100}]
With[{tbl=Table[m! 3^m, {m, 60}]}, Table[Position[tbl, _?(#>n!&), 1, 1], {n, 70}]]//Flatten (* Harvey P. Dale, Jun 08 2024 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Jul 17 2012
STATUS
approved