OFFSET
1,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..735 (terms < 10^11, first 60 terms from Harry J. Smith)
MATHEMATICA
Select[Range[5000], EulerPhi[# + PrimeNu[#]] == EulerPhi[#] + DivisorSigma[0, #] &] (* G. C. Greubel, Apr 23 2017 *)
PROG
(PARI) for(n=1, 10^7, if(eulerphi(n+omega(n))==eulerphi(n)+numdiv(n), print1(n, ", ")))
(PARI) { n=0; for (m=1, 10^9, if(eulerphi(m + omega(m)) == eulerphi(m) + numdiv(m), write("b063868.txt", n++, " ", m); if (n==60, break)) ) } \\ Harry J. Smith, Sep 01 2009
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Aug 26 2001
EXTENSIONS
a(20) from Thomas Baruchel, Oct 19 2003
a(21)-a(30) from Donovan Johnson, Aug 03 2009
STATUS
approved