WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター

原始根のベキ

ここでは，互いに素な22までの要素が原始根のベキとして列挙されている．

Wolfram Language code: n = 2 Prime[5]; p = PrimitiveRoot[n]; {n, p}
Wolfram Language code: 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]