1,2
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}]
Sequence in context: A100071 A129912 A182863 * A032177 A095349 A022916
Adjacent sequences: A161504 A161505 A161506 * A161508 A161509 A161510
nonn
T. D. Noe (noe(AT)sspectra.com), Jun 17 2009