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

Author

Labos Elemer, Aug 02 2002

Keywords

• nonn

Links

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

Crossrefs

Cf. A000010, A000720, A073464.

Programs

Mathematica

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

Formula

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