%I #4 Mar 30 2012 17:30:57
%S 30,42,66,78,102,114,138,174,186,222,246,258,282,318,354,366,402,426,
%T 438,474,498,534,582,606,618,642,654,678,762,770,786,822,834,894,906,
%U 910,942,978,1002,1038,1074,1086,1146,1158,1182,1190,1194,1266,1330
%N Integers n such that 3*phi(n) < n that are not multiples of smaller integers with this property.
%t a = {}; Do[ ep = EulerPhi[n]; If[ 3ep < n && Union[ Map[ IntegerQ, n/a]] != {False, True}, AppendTo[a, n]; Print[n]], {n, 1, 1361}]
%Y Cf. A091454.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Jan 10 2004