A015822 Numbers k such that phi(k + 6) | sigma(k).

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

Vincenzo Librandi, Table of n, a(n) for n = 1..3000

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

Adjacent sequences: A015819 A015820 A015821 * A015823 A015824 A015825

Keyword

nonn

Author

Robert G. Wilson v

Status

approved