Achilles Number

Author

Eric W. Weisstein
February 15, 2006

This notebook downloaded from http://mathworld.wolfram.com/notebooks/IntegerSequences/AchillesNumber.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/AchillesNumber.html.

©2006 Wolfram Research, Inc. except for portions noted otherwise

Code

AchillesQ[n_Integer]:=Module[{a=Last/@FactorInteger[n]},
FreeQ[a,1]&&GCD@@a==1
]

Enumeration

Select[Range[1000],AchillesQ]