Annual Appeal: Please make a donation (tax deductible in USA) to keep the OEIS running. Over 5000 articles have referenced us, often saying "we discovered this result with the help of the OEIS".
Vincenzo Librandi, Table of n, a(n) for n = 1..3000
Select[Range, Divisible[DivisorSigma[1, #], EulerPhi[6 + #]] &] (* David Nacin, Mar 01 2012 *)
(PARI) is(n)=sigma(n)%(eulerphi(n)+6)==0 \\ Charles R Greathouse IV, Sep 25 2012
Sequence in context: A265029 A184998 A079010 * A023883 A230873 A192321
Adjacent sequences: A015819 A015820 A015821 * A015823 A015824 A015825
Robert G. Wilson v