OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
achillesQ[n_] := Block[{ls = Last /@ FactorInteger@ n}, Min@ ls > 1 == GCD @@ ls]; Select[ Range@ 35000, achillesQ[ #] && GCD[#, DivisorSigma[1, #]] == 1 &]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Robert G. Wilson v, Sep 29 2014
STATUS
approved