| 数学
|
nn=12;s=表格[Select[Range[Prime@n-1],JacobiSymbol[#,Prime@n]==1&],{n,nn}];t=表[素数@n-s[[n,(素数@n-1)/2-k+1]],{n,长度@s},{k,(素数@n-1)/2}]/。{} -> {1}; u=前缀[Table[SelectFirst[Range@#,Function[x,Mod[x^2+t[[n,k]],#]==0]]&@Prime@n,{n,2,Length@t},{k,(Prime@n-1)/2}]{1}];表[选择第一个[范围@ #,功能[z,国防部[-(2 u个[[n个,k个]]z+1), #] ==0]] &@Prime(主要)@n个, {n个,2,长度@u个}, {k个, (Prime(主要)@n个-1}];)/2}] //压扁(* _迈克尔 扩散系数 弗利格_,四月 04 2016,版本 10*)
表[SelectFirst[Range@#,Function[z,Mod[-(2u[[n,k]]z+1),#]==0]&@Prime@n,{n,2,Length@u},{k,(Prime@n-1)/2}]//展平(*迈克尔·德弗利格,2016年4月4日,版本10*)
|