%I#8 2015年8月27日00:09:26

%S 4,15,16,21,25,27,30,33,35,36,39,42,49,50,51,54,55,57,64,65,66,69,70，

%电话：75,77,78,81,85,87,91,93,95,98100102105110111115119120，

%电话：121123125129130133138140141143145147150154155159161

%如果与d（N）互素的N的最大除数是一个复合数，则包含N N。

%C A137926（a（n））是所有n的复合材料。

%t a={}；对于[n=2，n<1000，n++，b=Max[Select[Divisors[n]，GCD[DivisorSigma[0]，n]，#]==1&]]；如果[b>1&&！PrimeQ[b]，追加到[a，n]]]；a（*_Stefan Steinerberger_，2008年12月6日*）

%Y参考A137926、A152444。

%K nonn公司

%O 1,1号机组

%A _罗伊查询，2008年12月4日

%E更多条款，来自斯特凡·斯坦纳伯格和雷·钱德勒，2008年12月6日