Teilerfremde Zahlen in Wolfram

Question

Wie kann ich in Wolfram Mathematica alle teilerfremden Zahlen einer Primzahl ausgeben?

Answer 1

Indem du alle Zahlen zwischen 1 und der gegebenen Zahl prüfst, ob sie teilerfremd zu der gegebenen Zahl sind.

coPrimes[n_] := Select[Range[1, n], GCD[n, #] == 1 &]
n = 20; (* Die gewünschte Zahl *)
result = coPrimes[n]

{1, 3, 7, 9, 11, 13, 17, 19}