A060668 Numbers k such that phi(x) = k has exactly 5 solutions.

8, 20, 220, 272, 300, 368, 416, 456, 500, 656, 732, 848, 876, 1092, 1160, 1212, 1236, 1328, 1376, 1424, 1568, 1624, 1716, 1808, 2144, 2244, 2336, 2420, 2460, 2480, 2528, 2556, 2768, 3056, 3080, 3252, 3320, 3344, 3536, 3560, 3612, 3728, 3732, 3900, 4016

Offset: 1

Author

Robert G. Wilson v, Apr 18 2001

Keywords

• nonn

Examples

			8 = phi(15) = phi(16) = phi(20) = phi(24) = phi(30).
		

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from T. D. Noe)
• Max Alekseyev, PARI/GP Scripts for Miscellaneous Math Problems (invphi.gp).

Crossrefs

Cf. A000010.

Number of solutions: A007617 (0), A007366 (2), A007367 (3), A060667 (4), this sequence (5), A060669 (6), A060670 (7), A060671 (8), A060672 (9), A060673 (10), A060674 (11), A060675 (12).

Programs

Mathematica

a = Table[ 0, {5000} ]; Do[ p = EulerPhi[ n ]; If[ p < 5001, a[[ p ]]++ ], {n, 1, 15000} ]; Select[ Range[ 5000 ], a[[ # ]] == 5 & ]

PARI

is(n)=sum(k=1,n,eulerphi(k)==n)==5 \\ Charles R Greathouse IV, Mar 03 2014

PARI

is(k) = invphiNum(k) == 5 \\ Amiram Eldar, Nov 17 2024, using Max Alekseyev's invphi.gp