A015799 phi(n) + 8 | sigma(n).
22, 44, 60, 84, 120, 132, 135, 140, 156, 204, 228, 231, 270, 276, 348, 372, 375, 444, 462, 492, 496, 516, 525, 532, 564, 636, 660, 700, 708, 726, 732, 750, 756, 804, 852, 876, 920, 935, 948, 996, 1050, 1068, 1164, 1212, 1236, 1248, 1284
Offset: 1
Keywords
Programs
-
Mathematica
Select[Range[2000],Divisible[DivisorSigma[1,#],EulerPhi[#]+8]&] (* Harvey P. Dale, Dec 04 2021 *)
-
PARI
is(n)=!(sigma(n)%eulerphi(n+8)) \\ Charles R Greathouse IV, Sep 25 2012