A067794 Nonprime numbers k such that phi(k) > 3*k/4.

1, 25, 49, 77, 85, 91, 95, 115, 119, 121, 125, 133, 143, 145, 155, 161, 169, 185, 187, 203, 205, 209, 215, 217, 221, 235, 247, 253, 259, 265, 287, 289, 295, 299, 301, 305, 319, 323, 329, 335, 341, 343, 355, 361, 365, 371, 377, 391, 395, 403, 407, 413, 415

Offset

1,2

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Mathematica

Select[Range[415], !PrimeQ[#] && EulerPhi[#] > 3*#/4 &] (* Amiram Eldar, Apr 23 2022 *)

Crossrefs

Cf. A000010.

Sequence in context: A067778 A350061 A067893 * A068874 A018936 A212190

Adjacent sequences: A067791 A067792 A067793 * A067795 A067796 A067797

Keyword

nonn

Author

Benoit Cloitre, Feb 07 2002

Status

approved