%I #8 Dec 04 2021 17:01:45
%S 22,44,60,84,120,132,135,140,156,204,228,231,270,276,348,372,375,444,
%T 462,492,496,516,525,532,564,636,660,700,708,726,732,750,756,804,852,
%U 876,920,935,948,996,1050,1068,1164,1212,1236,1248,1284
%N phi(n) + 8 | sigma(n).
%t Select[Range[2000],Divisible[DivisorSigma[1,#],EulerPhi[#]+8]&] (* _Harvey P. Dale_, Dec 04 2021 *)
%o (PARI) is(n)=!(sigma(n)%eulerphi(n+8)) \\ _Charles R Greathouse IV_, Sep 25 2012
%K nonn
%O 1,1
%A _Robert G. Wilson v_
|