OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Harry J. Smith)
MATHEMATICA
Select[Range[250000], EulerPhi[#] < #/5 &] (* Amiram Eldar, Apr 07 2024 *)
PROG
(PARI) for(n=1, 10^8, if(eulerphi(n)<n/5, print1(n, ", ")))
(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
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jason Earls, Jan 17 2002
STATUS
approved