%I#13 2022年4月23日05:35:58

%编号30,70286646179831353526357062797198885589701036610626，

%电话：1069511571160951653017255173912061520706207352080623326，

%电话：24738248822691912808331031365193689038086381304115141615

%N无平方数k，使得k的最大素因子等于k的其他素因子之和。

%C如果k=p（1）*p（2）*。。。p（r）在序列中，其中p（r+p（r-1）。

%H Amiram Eldar，n的表，n=1..10000的a（n）</a>

%e 20706=2*3*7*17*29和2+3+7+17=29，因此20706在序列中。

%t选择[Range[40000]，SquareFreeQ[#]&&Plus@@（f=FactorInteger[#][[；；，1]]）==2*f[[-1]]&]（*_Amiram Eldar_，2022年4月23日*）

%o（PARI），对于（n=2100000，如果（无平方（n）*总和（i=1，ω（n）-1，分量（分量（系数（n），1），i））==vecmax（系数（n，1）），打印1（n，“，”））

%Y参考A005117、A071141。

%K容易，不是

%O 1,1号机组

%2002年6月11日，A _贝尼特·克洛伊特