OFFSET
1,2
COMMENTS
REFERENCES
Dickson, History of the Theory of Numbers, Vol. I, Chelsea, New York, 1952, p. 134.
LINKS
H. Bonse, Über eine bekannte Eigenshaft der Zahl 30 und ihre Verallgemeinerung, Archiv d. Math. u. Physik (3) vol. 12 (1907) 292-295. See page 295.
MATHEMATICA
Omega[n_] := If[n==1, 0, Plus@@(Transpose[FactorInteger[n]][[2]])]; nn=1260; r=2; 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
tpfQ[n_] :=Max[PrimeOmega /@ Select[Range[n - 1], CoprimeQ[#, n] &]] < 3; Select[Range[1300], tpfQ] (* Harvey P. Dale, Mar 16 2016 *)
CROSSREFS
KEYWORD
fini,full,nonn
AUTHOR
T. D. Noe, Sep 21 2006
STATUS
approved