OFFSET
1,2
MATHEMATICA
Select[Range[1, 999], Divisible[DivisorSigma[1, 8 + #], EulerPhi[#]] &] (* David Nacin, Mar 04 2012 *)
PROG
(PARI) is(n)=!(sigma(n+8)%eulerphi(n)) \\ Charles R Greathouse IV, Sep 25 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved