|
%I #7 Sep 29 2021 12:32:19
%S 0,1,12,59,230,757,2194,5755,13930,31537,67478,137551,268841,506409,
%T 923247,1634835,2820045,4750704,7832808,12663272,20107115,31401356,
%U 48293446,73224024,109566144,161935895,236592736,341951846,489235520
%N Integer part of log(n^n)^(1 + log(n)).
%t Table[Floor[Log[n^n]^(1+Log[n])],{n,30}] (* _Harvey P. Dale_, Sep 29 2021 *)
%Y Cf. A062478.
%K nonn,easy
%O 1,3
%A _Olivier Gérard_, Jun 23 2001
%E Previous Mathematica program replaced by _Harvey P. Dale_, Sep 29 2021
|
