Qurak

Powers of a primitive root

Esempio 2 passi, eseguiti in ordine in una sola sessione. Ogni passo è stato eseguito sul motore e l'output qui sotto è ciò che ha prodotto.

Passo 1
n = 2 Prime[5];
p = PrimitiveRoot[n];
{n, p}
Output
{22, 13}
Passo 2
Graph[Table[PowerMod[p, k, n] -> PowerMod[p, k + 1, n], {k, EulerPhi[n]}], DirectedEdges -> True, VertexLabels -> Placed["Name", Center], VertexSize -> 0.4, VertexStyle -> LightOrange]
Output
Graph[<10>, <10>]

Funzioni usate

Ricette correlate

Tutte le ricette · Guida delle funzioni · Usa questo da un client MCP