%I#10 2021年12月20日09:47:09
%S 2,3,5,5,7,7,11,11,11,13,17,17,17,17,17,19,19,23,23,25,29,
%电话:29,29,292,31,31,37,37,37,37,47,41,41,41,43,47,47,57,53,53,
%U 53,53,53.53,53,55,55,59,59,59,59,59、59,69、61,67、67,67、67、676,67、667,69、71,71、73,73、77、77、77,77、79、81、81、83、87、87、89、89
%N最小k>N,其二进制展开对Q上的不可约(0,1)多项式进行编码。
%C a(n)是A206074中大于n的最小项。
%H Antti Karttunen,n表,n=1..21845的a(n)</a>
%t binPol[n_,x_]:=使用[{bb=整数位数[n,2]},bb.x^范围[Length[bb]-1,0,-1]];
%t b[n_]:=如果[In不可约多项式Q[binPol[n,x]],1,0];
%t a[n_]:=模[{k=n+1},而[b[k]==0,k++];k] ;
%t数组[a,100](*_Jean-François Alcover_,2021年12月20日*)
%o(PARI)
%o A257000(n)=polisirreducible(Pol(二进制(n)));
%o A305430(n)={my(k=1+n);而(!A257000(k),k++);(k);};
%Y参见A206074、A257000、A305429。
%Y另请参阅A151800、A305420。
%K nonn公司
%O 1,1号机组
%A _Antti Karttunen_,2018年6月7日
|