|
%I #15 Sep 08 2019 16:15:49
%S 15,21,46,69,88,94,115,119,189,204,209,210,213,255,297,329,332,399,
%T 418,465,470,589,598,609,616,663,696,749,799,869,950,1074,1081,1173,
%U 1199,1365,1593,1595,1615,1729,1888,1917,2014,2024,2185,2189,2289,2376,2449
%N Numbers k such that phi(k + 11) | sigma(k).
%t Select[Range[3000], Divisible[DivisorSigma[1, #], EulerPhi[11 + #]] &] (* _David Nacin_, Mar 01 2012 *)
%o (PARI) is(n)=!(sigma(n)%eulerphi(n+11)) \\ _Charles R Greathouse IV_, Sep 25 2012
%K nonn
%O 1,1
%A _Robert G. Wilson v_
|
