login
Integers n such that 3*phi(n) < n that are not multiples of smaller integers with this property.
0

%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