A073465 Numbers n such that phi(n)/pi(n) is an integer.

2, 3, 4, 8, 10, 11, 13, 14, 20, 27, 37, 39, 43, 63, 90, 91, 95, 122, 124, 136, 152, 169, 175, 176, 224, 322, 364, 365, 410, 460, 605, 875, 917, 1082, 1084, 1085, 1086, 1087, 1137, 1143, 1164, 1168, 1444, 1517, 1541, 1751, 1786, 1991, 2873, 3087, 3101, 3283

Offset

1,1

Links

Donovan Johnson, Table of n, a(n) for n = 1..1000

Formula

Mod[A000010(n), A000720(n)]=A071259[n]=0

Mathematica

Select[Range[2, 3300], IntegerQ[EulerPhi[#]/PrimePi[#]]&] (* Harvey P. Dale, Apr 11 2020 *)

Crossrefs

Cf. A000010, A000720, A073464.

Sequence in context: A118252 A047456 A279000 * A174816 A161494 A356641

Adjacent sequences: A073462 A073463 A073464 * A073466 A073467 A073468

Keyword

nonn

Author

Labos Elemer, Aug 02 2002

Status

approved