%I #6 Jan 09 2023 07:54:35
%S 1,2,6,12,30,60,420,840,27720,360360,6126120,2677114440,2406725881560
%N First occurrence of n in A161506.
%t func[n_] := Module[{d=Divisors[n], e=EulerPhi[n]}, Length[Select[d, #>e/2&]]]; k=1; Table[While[func[k]<n, k++ ]; k, {n,11}]
%K nonn,more
%O 1,2
%A _T. D. Noe_, Jun 17 2009