A091455 Integers n such that 3*phi(n) < n that are not multiples of smaller integers with this property.
30, 42, 66, 78, 102, 114, 138, 174, 186, 222, 246, 258, 282, 318, 354, 366, 402, 426, 438, 474, 498, 534, 582, 606, 618, 642, 654, 678, 762, 770, 786, 822, 834, 894, 906, 910, 942, 978, 1002, 1038, 1074, 1086, 1146, 1158, 1182, 1190, 1194, 1266, 1330
Offset: 1
Keywords
Crossrefs
Cf. A091454.
Programs
-
Mathematica
a = {}; Do[ ep = EulerPhi[n]; If[ 3ep < n && Union[ Map[ IntegerQ, n/a]] != {False, True}, AppendTo[a, n]; Print[n]], {n, 1, 1361}]