%I#33 2023年2月18日09:33:56

%S 5、7、10、13、14、18、19、26、31、38、39、43、50、55、61、62、69、72、73、78、84、86、91，

%电话95,96,98103108109110115119122123129133136138145146，

%U 151153159181182187190193199205电话

%N A154689的副本。

%C数字n，使d（n）=d（n-d（n，n））。

%t sndQ[n_]：=模块[{dn=DivisorSigma[0，n]}，dn==Divisor Sigma[0，n-dn]]；选择[Range[250]，sndQ]（*哈维·P·戴尔，2014年3月5日*）

%o（PARI）用于（n=31000，如果（numdiv（n）==numdiv

%K死了

%O 1，1

%A _Juri-Stepan Gerasimov，2010年11月20日