OFFSET
1,3
LINKS
Clark Kimberling, Table of n, a(n) for n = 1..1000
MAPLE
A214051 := proc(n)
local r, m;
r := (1+sqrt(5))/2 ;
for m from 1 do
if floor((1+r)^m) >= n! then
return m ;
end if;
end do:
end proc: # R. J. Mathar, Jul 23 2012
MATHEMATICA
r=GoldenRatio;
Table[m=1; While[n!>(1+r)^m, m++]; m, {n, 1, 100}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Jul 18 2012
STATUS
approved