| 数学
|
A[n_,x_]:=_] :=A[n,x]=] =总和[(2k+1)*x^(n-k), {), {k、 0个,n个}];做[做[如果[不可约多项式Q[A类[n个,x个],模量->Prime(主要)[k个]] ==真的,打印[n个, " ",Prime(主要)[k个]];转到[美国]], {k个,1,初级Pi[n个^2+22]}];打印[n个, " ",反例];标签[美国];继续, {n个,1,100}]
Do[Do[If[If[不可约多项式Q[A[n,x],模->素数[k]]==真,打印[n,“”,素数[k]];后藤[aa]],{k,1,PrimePi[n^2+22]}];
打印[n,“”,反例];标签[aa];继续,{n,1100}]
|