%I#5 2014年3月31日01:49:31
%S 2,4,5,7,10,14,17,19,25,29,31,34,38,43,49,50,53,58,62,79,86,89,98101,
%电话:106113125127137139149158163173197199202211223226,
%电话:23325025425726927427828128328929329831732633343346
%本原根为3的N个数。
%H Vincenzo Librandi,n的表,n=1..1000的a(n)</a>
%t pr=3;选择[Range[22000],MultiplicativeOrder[pr,#]==EulerPhi[#]&]
%Y Cf.A019334(带本原根3的素数)
%K nonn公司
%O 1,1号机组
%A _T.D.Noe_,2009年11月12日
|