login
First occurrence of n in A161506.
1

%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