%I#24 2024年1月25日07:16:11
%电话:72474106674193026237522261478308649342066370785391674491322,
%电话:6048786597488547793102293859810056301072711528221186926,
%电话:120682212899781306878136332613717741392726141291814552491528111163422716546781688478
%N四素数与任何其他无平方数相差超过3。
%C四素数是四个不同素数的乘积(参见A046386)。
%e 72474=2×3×47×257是四素数;72471=3*7^2*17*29,72472=2^3*9059,72473=23^2*137,72475=5^2*13*223,72476=2^2*18119,72477=3^2*8053都是非方数,所以72474是一个项。
%t f[n_]:=模块[{e=FactorInteger[n][[;;,2]],p},p=Times@@e;如果[p>1,0,如果[e=={1,1,1},1,-1]];序列位置[Array[f,2*10^6],{0,0,0,1,0,0,0}][[;;,1]]+3(*_Amiram Eldar_,2024年1月19日*)
%Y参见A046386、A013929。A268332的后续序列。
%K nonn公司
%O 1,1号机组
%A·马西莫·科弗勒,2024年1月19日
|