%I#20 2022年7月8日17:08:12
%S 20,28,44,52,68,76,92,99116117124148164171172188207212,
%电话:23624426126827928429231633233335636938738840414223,
%电话:42843645247508524531549556596603604628639652657668692711716724747767474772775788796
%N形式为p^2*q的数,其中p和q是p^2<q的素数。
%C n的除数(A000005)等于3+n的素因子数(带重数,A001222),第三个最小的除数是素数的平方(A001248)的数。
%e20=2^2*5包含在内是因为2<5,并且在20的除数[1,2,4,5,10,20]中,第三个(4)是素数的平方2^2<5。
%t选择[Range[800],(f=FactorInteger[#])[[;;,2]]=={2,1}&&f[[1,1]]^2<f[[2,1]]&](*_Amiram Eldar_,2022年7月7日*)
%o(PARI)
%o A355443(n)=((numdiv(n)==(3+二倍体(n)))和平方(除数(n)[3]));
%o为A355445(n)=A355443(n);
%Y设置差A096156\A355446。A119315之后。
%A290110和A300250中9的Y位置。
%Y参考A000005、A001222、A001248、A355443(特性函数)。
%K nonn公司
%O 1,1号机组
%2022年7月2日,安蒂·卡图内
|