%I#7 2018年10月2日11:32:33

%S 52515023452778736652854421855312819861295106675192294，

%电话7358215629826744389815116299815117452515023405277873660，

%电话：5285442180553128198061295106606751922940735821562098267443809981516209981511740

%N阶的单位社交数。

%H J.O.M.Pedersen，<a href=“http://web.archive.org/web/20130731050921/http://amicable.homepage.dk/knwnux.htm“>不同于四个订单的已知统一社会编号

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/UnitarySoatibleNumbers.html“>单位社会人口</a>

%H J.O.M.Pedersen，订购10个周期</a>

%o（PARI）f（n）=总和（n，d，如果（gcd（d，n/d）==1，d））-n；

%o isok10（n）=ifer（f（f（f-（f（f-（f-））））==n，E，0））；

%o isok5（n）=ifer（f（f（f（f（n））））==n，E，0）；

%o isok2（n）=ifrer（f（f（n））==n，E，0）；

%o isok1（n）=ifrer（f（n）==n，E，0）；

%o isok（n）=isok10（n）&&！isok1（n）&&！isok2（n）&&！isok5（n）；

%Y参见A063919（适当的幺正因子之和）。

%Y参见A002827（统一完全），A063991（统一友好）。

%Y参见A097024（订单5）、A319917（订单6）、A097030（订单14）。

%K nonn，更多

%O 1,1号机组

%马库斯，2018年10月2日