OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Harry J. Smith)
MATHEMATICA
Select[Range[300], PrimeOmega[EulerPhi[#]] == PrimeOmega[#] &] (* Amiram Eldar, May 19 2022 *)
PROG
(PARI) { n=0; for (m=1, 10^10, if(bigomega(eulerphi(m)) == bigomega(m), n++; print1(m, ", "); if (n==1000, return)) ) } \\ Harry J. Smith, Apr 04 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Jan 26 2002
EXTENSIONS
a(1) = 1 inserted by Amiram Eldar, May 19 2022
STATUS
approved