A062468 Nearest integer to log(n!)^(1 + log(n)/n).
0, 1, 2, 5, 8, 12, 15, 20, 24, 28, 33, 37, 42, 46, 51, 56, 60, 65, 70, 74, 79, 84, 88, 93, 98, 103, 107, 112, 117, 122, 127, 131, 136, 141, 146, 151, 156, 160, 165, 170, 175, 180, 185, 190, 195, 200, 205, 210, 215, 220, 225, 230, 235, 240, 245, 250, 255, 260
Offset: 1
Crossrefs
Cf. A062467.
Programs
-
Mathematica
Table[Round[Log[n!]^(1+Log[n]/n)],{n,60}] (* Harvey P. Dale, Oct 01 2021 *)
Extensions
Previous Mathematica program replaced by Harvey P. Dale, Oct 01 2021