OFFSET
1,1
MATHEMATICA
a = {}; Do[ ep = EulerPhi[n]; If[ 3ep < n && Union[ Map[ IntegerQ, n/a]] != {False, True}, AppendTo[a, n]; Print[n]], {n, 1, 1361}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jan 10 2004
STATUS
approved