Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #24 Aug 31 2018 02:53:55
%S 6,14,15,19,22,27,30,33,38,42,46,51,56,62,66,70,78,86,87,92,102,118,
%T 120,123,138,142,158,166,177,184,186,206,210,213,246,254,262,264,278,
%U 280,282,303,318,321,326,330,382,398,411,422,426,429,446,447,456,459
%N Numbers k such that phi(k + 6) | sigma(k).
%H Vincenzo Librandi, <a href="/A015822/b015822.txt">Table of n, a(n) for n = 1..3000</a>
%t Select[Range[1000], Divisible[DivisorSigma[1, #], EulerPhi[6 + #]] &] (* _David Nacin_, Mar 01 2012 *)
%o (PARI) is(n)=sigma(n)%(eulerphi(n)+6)==0 \\ _Charles R Greathouse IV_, Sep 25 2012
%K nonn
%O 1,1
%A _Robert G. Wilson v_