|
%I #7 Apr 23 2020 16:36:41
%S 1,0,1,2,6,18,54,168,543,1819,6284,22305,81085,301185,1140759,4398268,
%T 17237268,68582448,276723505,1131245762,4681484414,19597666672,
%U 82933899715,354575503930,1530739734801,6669583434025,29316248173094
%N Integer part of log(n)^(n - 1).
%t Join[{1},Table[Floor[Log[n]^((1-1/n)*n)],{n,2,30}]]
%Y Cf. A062416.
%K nonn,easy
%O 1,4
%A _Olivier Gérard_, Jun 23 2001
%E Mathematica program fixed by _Harvey P. Dale_, Apr 23 2020
|
