A248022 Achilles numbers which are coprime to the sum of their divisors.

392, 800, 968, 1352, 2312, 2888, 3087, 3267, 3872, 4232, 5408, 6075, 6125, 6272, 6728, 7688, 7803, 9248, 10952, 11552, 12800, 13448, 14283, 14792, 15125, 15488, 16928, 17672, 19208, 20000, 21632, 22472, 22707, 25088, 26912, 27783, 27848, 29403, 29768, 30752, 33275

Offset: 1

Author

Robert G. Wilson v, Sep 29 2014

Keywords

• nonn
• easy

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Intersection of A052486 and A003624. - Michel Marcus, Sep 30 2014

Programs

Mathematica

achillesQ[n_] := Block[{ls = Last /@ FactorInteger@ n}, Min@ ls > 1 == GCD @@ ls]; Select[ Range@ 35000, achillesQ[ #] && GCD[#, DivisorSigma[1, #]] == 1 &]