login
A015822
Numbers k such that phi(k + 6) | sigma(k).
1
6, 14, 15, 19, 22, 27, 30, 33, 38, 42, 46, 51, 56, 62, 66, 70, 78, 86, 87, 92, 102, 118, 120, 123, 138, 142, 158, 166, 177, 184, 186, 206, 210, 213, 246, 254, 262, 264, 278, 280, 282, 303, 318, 321, 326, 330, 382, 398, 411, 422, 426, 429, 446, 447, 456, 459
OFFSET
1,1
LINKS
MATHEMATICA
Select[Range[1000], Divisible[DivisorSigma[1, #], EulerPhi[6 + #]] &] (* David Nacin, Mar 01 2012 *)
PROG
(PARI) is(n)=sigma(n)%(eulerphi(n)+6)==0 \\ Charles R Greathouse IV, Sep 25 2012
CROSSREFS
Sequence in context: A322561 A079010 A324814 * A023883 A230873 A192321
KEYWORD
nonn
STATUS
approved