OFFSET
1,1
MATHEMATICA
Select[Range[1000000], Divisible[DivisorSigma[1, # + 2], EulerPhi[#] + 2] &] (* Amiram Eldar, Dec 10 2018 *)
PROG
(PARI) is(n)=!(sigma(n+2)%(eulerphi(n)+2)) \\ Charles R Greathouse IV, Sep 25 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Corrected by Charles R Greathouse IV, Sep 25 2012
Incorrect a(1)=1 removed and more terms from Sean A. Irvine, Dec 10 2018
STATUS
approved