A062443 - OEIS

%I #7 Jul 18 2024 17:37:30

%S 0,0,0,2,8,21,45,86,150,247,387,580,840,1183,1626,2188,2889,3753,4805,

%T 6073,7586,9377,11481,13933,16775,20047,23796,28067,32913,38385,44539,

%U 51435,59135,67703,77208,87720,99314,112067,126060,141378,158109

%N Integer part of log(n!)^(1 + log(1 + log(n))).

%t Table[Floor[Log[n!]^(1+Log[1+Log[n]])],{n,0,40}]

%Y Cf. A062444.

%K nonn,easy

%O 0,4

%A _Olivier Gérard_, Jun 23 2001

%E Mathematica program corrected by _Harvey P. Dale_, Jul 18 2024