|
%I #22 Aug 31 2018 02:53:51
%S 3,6,11,14,23,24,30,33,35,54,59,66,71,77,99,102,105,107,110,119,131,
%T 140,158,161,167,168,174,179,186,203,222,231,239,251,253,280,287,290,
%U 304,311,312,329,347,348,357,359,366,371,378,383,402,413,419,426,430
%N Numbers k such that phi(k + 7) | sigma(k).
%H Vincenzo Librandi, <a href="/A015823/b015823.txt">Table of n, a(n) for n = 1..3000</a>
%t Select[Range[1000], Divisible[DivisorSigma[1, #], EulerPhi[7 + #]] &] (* _David Nacin_, Mar 01 2012 *)
%o (PARI) is(n)=sigma(n)%(eulerphi(n)+7)==0 \\ _Charles R Greathouse IV_, Sep 25 2012
%K nonn
%O 1,1
%A _Robert G. Wilson v_
|
