%I#10 2023年5月2日12:02:41

%S 11、13、17、41、59、61、79、83、89103107109113121127131137151157，

%电话：169179199223227229233252572572712772893473397401，

%电话：419443449467487491521563569587593613641659661683709733

%本原根为6的N个数。

%H Vincenzo Librandi，n的表，n=1..1000的a（n）</a>

%p A167794：=程序（n）

%p选项记忆；

%如果n=1，则为p

%第11页；

%p其他

%p表示来自procname（n-1）+1 do的a

%p如果numtheory[order]（6，a）=numtheori[phi]（a），则

%p返回a；

%p end if；

%p端do：

%p end if；

%p端程序：

%p序列（A167794（n），n=1..80）；#_R.J.Mathar，2021年9月15日

%t pr=6；选择[Range[22000]，MultiplicativeOrder[pr，#]==EulerPhi[#]&]

%Y参见A019336（带本原根6的素数）。A033948的子序列。

%K nonn公司

%O 1，1

%A _T.D.Noe_，2009年11月12日