%I#26 2023年2月11日20:31:47

%S 25,5012516924328932534335136142560562572729841845，

%电话：92510251053132513691445145015016251681182518502152197，

%电话：22252401242525252725280928252873312534253625372137253737387239254205425432545454525

%N非平方自由数k，使得k-d对于k的所有真除数d也是非平方数。

%e 25的适当除数是（1，5）；25-1和25-5均为非方形；所以25是一个术语。

%tq[n]：=！SquareFreeQ[n]&&AllTrue[Divisors[n]，#==n||！方形自由Q[n-#]&]；选择[范围[5000]，q]（*_Amiram Eldar_，2023年1月22日*）

%o（岩浆）[1..5000中的n:n |不是IsSquarefree（n）和[1..n-1]|n mod d eq 0和IsSquarefree（n-d）]eq 0]；

%o（PARI）isok（k）=如果（！issquarefree（k），fordiv（k，d，if（issquarefere（k-d），return（0）））；返回（1）；\\_米歇尔·马库斯，2023年1月22日

%Y参考A013929（非平方数），A027751（适当的除数）。

%K nonn公司

%O 1,1号机组

%A _Juri-Stepan Gerasimov，2023年1月21日