A060669 Numbers n such that phi(x) = n has exactly 6 solutions.

12, 16, 84, 88, 112, 232, 348, 408, 592, 736, 760, 780, 832, 952, 984, 1032, 1048, 1068, 1128, 1232, 1272, 1312, 1332, 1428, 1432, 1488, 1552, 1608, 1692, 1912, 2052, 2200, 2272, 2292, 2436, 2484, 2552, 2576, 2608, 2632, 2700, 2728, 2832, 2848, 3048, 3088

Offset

1,1

Links

T. D. Noe, Table of n, a(n) for n = 1..1000

Example

12 = phi(13) = phi(21) = phi(26) = phi(28) = phi(36) = phi(42).

Mathematica

a = Table[ 0, {4000} ]; Do[ p = EulerPhi[ n ]; If[ p < 4001, a[ [ p ] ]++ ], {n, 1, 15000} ]; Select[ Range[ 4000 ], a[ [ # ] ] == 6 & ]
Take[Select[Tally[EulerPhi[Range[50000]]], #[[2]]==6&][[All, 1]]//Sort, 50] (* Harvey P. Dale, Sep 15 2016 *)

Prog

(PARI) is(n)=sum(i=1, n, eulerphi(i)==n)==6 \\ Charles R Greathouse IV, Mar 03 2014

Crossrefs

Cf. A007366, A007367.

Sequence in context: A219390 A050585 A050555 * A166644 A264492 A264485

Adjacent sequences: A060666 A060667 A060668 * A060670 A060671 A060672

Keyword

nonn

Author

Robert G. Wilson v, Apr 18 2001

Status

approved