login
A091455
Integers n such that 3*phi(n) < n that are not multiples of smaller integers with this property.
0
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,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
Cf. A091454.
Sequence in context: A291446 A342398 A226104 * A367481 A219742 A348557
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jan 10 2004
STATUS
approved