Annual Appeal: Please make a donation (tax deductible in USA) to keep the OEIS running. Over 5000 articles have referenced us, often saying "we discovered this result with the help of the OEIS".
%I
%S 2,2,5,5,9,5,9,9,9,9,7,9,19,9,14,14,20,9,13,14,19,7,7,14,16,19,13,19,
%T 11,14,13,20,16,20,34,19,31,13,34,20,30,19,13,16,34,7,7,20,13,16,27,
%U 34,11,13,30,34,31,11,7,20,37,13,31,27,51,16,13,27,14,34,9,34,63,31,30,31
%N Number of k such that phi(k) divides phi(n).
%o (PARI) for(n=1,100,print1(sum(i=1,1000,if(eulerphi(n)%eulerphi(i),0,1)),","))
%K easy,nonn
%O 1,1
%A _Benoit Cloitre_, Jun 10 2002