Join[{1}, Table[Floor[Log[n!]^Log[1+Log[n]]], {n, 2, 60}]] (* From _Harvey P. Dale, _, Jul 26 2011 *)
Join[{1}, Table[Floor[Log[n!]^Log[1+Log[n]]], {n, 2, 60}]] (* From _Harvey P. Dale, _, Jul 26 2011 *)
_Olivier Gerard (olivier.gerard(AT)gmail.com), GĂ©rard_, Jun 23 2001
editing
approved
Integer part of lnlog(n!)^lnlog(1 + lnlog(n)).
reviewed
editing
proposed
reviewed
editing
proposed
Join[{1}, Table[Floor[Log[n! ]^Log[1 + Log[n]]], {n, 2, 60}]] (* From Harvey P. Dale, Jul 26 2011 *)
approved
editing
nonn,easy,new
Olivier Gerard (ogerardolivier.gerard(AT)ext.jussieugmail.frcom), Jun 23 2001
Integer part of ln(n!)^ln(1 + ln(n)).
1, 0, 1, 2, 4, 6, 10, 14, 19, 25, 33, 42, 52, 64, 78, 94, 112, 132, 154, 179, 206, 236, 270, 306, 345, 388, 434, 484, 538, 596, 658, 725, 796, 871, 952, 1037, 1128, 1224, 1325, 1433, 1546, 1665, 1791, 1923, 2061, 2207, 2360, 2519, 2686, 2861, 3044
1,4
Floor[Log[n! ]^Log[1 + Log[n]]]
Cf. A062426.
nonn,easy
Olivier Gerard (ogerard(AT)ext.jussieu.fr), Jun 23 2001
approved