|
%I #7 Dec 31 2021 13:31:58
%S 0,1,1,2,3,4,6,8,11,14,18,23,30,38,47,59,73,90,111,135,164,199,240,
%T 288,346,413,491,583,691,816,962,1131,1327,1554,1816,2118,2465,2865,
%U 3323,3849,4451,5139,5925,6821,7842,9003,10324,11823,13523,15449
%N Nearest integer to log(n)^sqrt(n).
%t Table[Round[Log[n]^Sqrt[n]],{n,50}] (* _Harvey P. Dale_, Dec 31 2021 *)
%Y Cf. A062463, close to A007279 and A034891.
%K nonn,easy
%O 1,4
%A _Olivier Gérard_, Jun 23 2001
%E Previous Mathematica program replaced by _Harvey P. Dale_, Dec 31 2021
|
