%I#12 2022年1月6日14:56:03
%S 2,3,5,6,7,10,11,12,13,14,15,17,19,20,21,22,23,26,28,29,30,31,33,34,
%电话:35,37,38,39,41,42,43,44,45,46,47,51,52,53,55,57,58,59,60,61,62,63,65,
%U 66、67、68、69、70、71、73、74、76、77、78、79、82、83、84、85、86、87、89、91、92
%N个正整数,其素重数弱减,跨越正整数的初始区间。
%H Rémy Sigrist,n表,n=1..25000的a(n)</a>
%t normalQ[m_]:=并集[m]=范围[Max[m]];
%t选择[Range[2100],And[normalQ[FactorInteger[#][[All,2]],OrderedQ[Reverse[FactorInteger[#][[All,2]]]&]
%o(PARI)是(n)=我的(f=系数(n),w=#f~);如果(w==0|f[w,2]!=1,返回(0),对于(k=1,w-1,if(f[k,2])!=f[k+1,2]&&f[k、2]!=1+f[k+1,2],返回值(0))
%o;return(1))\\Rémy Sigrist,2018年9月5日
%Y参见A001222、A007916、A055932、A056239、A112798、A124010、A133808、A242031。
%Y参考A317087、A317088、A317089、A317090、A317091。
%K nonn公司
%O 1,1号机组
%A _Gus Wiseman_,2018年7月21日
|