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: A162214 A100071 A129912 this_sequence A032177 A095349 A022916

Adjacent sequences: A161504 A161505 A161506 this_sequence A161508 A161509 A161510

nonn

T. D. Noe (noe(AT)sspectra.com), Jun 17 2009