%I#17 2022年7月8日17:08:20
%邮政编码:12,45,631752753254254755395756378339311127142115191573,
%电话1813200920572107229923032783287332113509375138874477,
%电话:4901496152035239549156876253641366476929713972677381794381078383818591883389578959595599971100431030910469
%N形式为p^2*q的数,其中p和q是带p<q<p^2的素数。
%C n的除数(A000005)等于3+n的素因子数(带重数,A001222),第四个最小的除数是素数的平方(A001248)的数。
%e12=2^2*3包含在内是因为2<3,12的除数[1,2,3,4,6,12]中的第四个(4)是素数的平方2^2>3。
%t选择[Range[10^4],(f=FactorInteger[#])[[;;,2]]=={2,1}&&f[[1,1]]^2>f[[2,1]]&](*_Amiram Eldar_,2022年7月7日*)
%o(PARI)
%o A355444(n)=((numdiv(n)==(3+二倍体(n)))和平方(除数(n)[4]));
%o为A355446(n)=A355444(n);
%Y设置差异A096156\A355445。
%A290110和A300250中6的Y位置。
%Y A066680和A355455的子序列。
%Y参考A000005、A001222、A001248、A355444(特性函数)。
%K nonn公司
%O 1,1号机组
%2022年7月2日,安蒂·卡图内
|