A015851 Numbers k such that phi(k) | sigma(k + 8).

1, 2, 3, 4, 6, 7, 9, 11, 14, 15, 18, 20, 34, 36, 38, 39, 52, 63, 70, 84, 85, 97, 100, 111, 116, 130, 146, 150, 153, 162, 174, 180, 182, 196, 207, 216, 220, 222, 231, 247, 372, 427, 429, 468, 490, 505, 507, 608, 612, 700, 702, 741, 742, 748, 775, 855, 861

Offset

1,2

Links

Table of n, a(n) for n=1..57.

Mathematica

Select[Range[1, 999], Divisible[DivisorSigma[1, 8 + #], EulerPhi[#]] &] (* David Nacin, Mar 04 2012 *)

Prog

(PARI) is(n)=!(sigma(n+8)%eulerphi(n)) \\ Charles R Greathouse IV, Sep 25 2012

Crossrefs

Sequence in context: A248357 A047872 A173254 * A225529 A065156 A097987

Adjacent sequences: A015848 A015849 A015850 * A015852 A015853 A015854

Keyword

nonn

Author

Robert G. Wilson v

Status

approved