Powers of a primitive root

示例 2 步，在同一个会话中按顺序运行。每一步都在引擎上执行过，下面的输出就是它实际产生的。

第 1 步

n = 2 Prime[5];
p = PrimitiveRoot[n];
{n, p}

输出

{22, 13}

第 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]

输出

Graph[<10>, <10>]

在 Qurak 上运行全部操作示例

用到的函数

EulerPhi Graph Placed PowerMod Prime PrimitiveRoot Table

Powers of a primitive root

用到的函数

相关操作示例