%I#25 2023年4月8日23:26:16

%S 1,2,3,4,5,6,7,9,10,11,13,14,15,16,17,19,21,22,23,25,26,29,30,31,33，

%电话：34,35,36,37,38,39,41,42,43,46,47,48,49,51,53,55,57,58,59,61,62,64,65，

%U 66、67、69、70、71、73、74、77、78、79、80、81、82、83、85、86、87、89、91、93、94

%N个整数，其平方因子数量与其非平方因子数量互质。

%C似乎是A210490的超序列，也是正平方和平方数的超序列（A005117）。第一个属于这里但不属于A210490的术语是48。非平方的非平方项的形式为p^（4k）*a，其中a是一个无平方数，p是质数，k>0。大约一半的完全数是这种形式的；一个例子是496=2^4*31。该序列的渐近密度约为0.6420。

%H<a href=“/index/Di#divisors”>与数字除数相关的序列的索引项</a>

%e48有3个平方因子（1、4和16）和7个非平方因子。因此，gcd（3,7）=1，因此48是一个术语。

%t选择[Range[100]，CoprimeQ[Total@（Boole/@IntegerQ/@Sqrt/@Divisors[#]），DivisorSigma[0，#]-Total@

%o（PARI）对于（n=1100，a=除数（n））；c=0；对于（i=1，#a，issquare（a[i]）&&c++）；gcd（#a-c，c）==1&&print1（n，“，”）

%o（PARI）isok（n）=gcd（numdiv（n），numdiv

%Y参见A210490、A005117（子序列）、A046951（平方除数）、A056595（非平方除数数）。

%K nonn公司

%O 1,2号机组

%A _瓦尔德马尔·普什卡兹，2023年3月19日