OFFSET
1,2
COMMENTS
REFERENCES
Dickson, History of the Theory of Numbers, Vol. I, Chelsea, New York, 1952, p. 134.
LINKS
T. D. Noe, Table of n, a(n) for n=1..265 (complete sequence)
MATHEMATICA
Omega[n_] := If[n==1, 0, Plus@@(Transpose[FactorInteger[n]][[2]])]; nn=60060; r=3; moreThanR=Select[Range[nn], Omega[ # ]>r&]; lst={1}; Do[s=Select[Range[n], GCD[n, # ]==1&]; If[Intersection[s, moreThanR]=={}, AppendTo[lst, n]], {n, 2, nn}]; lst
CROSSREFS
KEYWORD
fini,full,nonn
AUTHOR
T. D. Noe, Sep 21 2006
STATUS
approved