%I #19 Apr 07 2024 09:10:09
%S 30030,39270,43890,46410,51870,53130,60060,78540,87780,90090,92820,
%T 103740,106260,117810,120120,131670,139230,150150,155610,157080,
%U 159390,175560,180180,185640,196350,207480,210210,212520,219450,232050,235620
%N Numbers k such that phi(k) < k/5.
%H Amiram Eldar, <a href="/A066765/b066765.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Harry J. Smith)
%t Select[Range[250000], EulerPhi[#] < #/5 &] (* _Amiram Eldar_, Apr 07 2024 *)
%o (PARI) for(n=1,10^8, if(eulerphi(n)<n/5,print1(n,",")))
%o (PARI) { n=0; for (m=1, 10^10, if (eulerphi(m) < m/5, write("b066765.txt", n++, " ", m); if (n==1000, return)) ) } \\ _Harry J. Smith_, Mar 24 2010
%Y Cf. A000010 (phi), A091454.
%K easy,nonn
%O 1,1
%A _Jason Earls_, Jan 17 2002
|