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,1

Links

Table of n, a(n) for n=1..49.

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

Adjacent sequences: A091452 A091453 A091454 * A091456 A091457 A091458

Keyword

nonn

Author

Robert G. Wilson v, Jan 10 2004

Status

approved