A015799 phi(n) + 8 | sigma(n).

22, 44, 60, 84, 120, 132, 135, 140, 156, 204, 228, 231, 270, 276, 348, 372, 375, 444, 462, 492, 496, 516, 525, 532, 564, 636, 660, 700, 708, 726, 732, 750, 756, 804, 852, 876, 920, 935, 948, 996, 1050, 1068, 1164, 1212, 1236, 1248, 1284

Offset

1,1

Links

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

Mathematica

Select[Range[2000], Divisible[DivisorSigma[1, #], EulerPhi[#]+8]&] (* Harvey P. Dale, Dec 04 2021 *)

Prog

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

Crossrefs

Sequence in context: A138842 A040462 A269310 * A008604 A110724 A277051

Adjacent sequences: A015796 A015797 A015798 * A015800 A015801 A015802

Keyword

nonn

Author

Robert G. Wilson v

Status

approved