%I#27 2021年8月31日04:37:08

%编号698130698310698310698490712710712890713070341354790348612390，

%电话：39166281040646831411838938519891750530946330582129630，

%电话：5961719706215496307171751707407002707400433249348302150912165810099541701343332998

%N六阶的酉社交数。

%注意，前6个词和后6个词构成两个社交群。但接下来的12个任期属于两个不同的社交群体。

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

%H J.O.M.Pedersen，订购6个周期，2007年。

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

%o（PARI）f（n）=sumdiv（n，d，if（gcd（d，n/d）==1，d））-n；

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

%o isok3（n）=ifrer（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）=isok6（n）&&！isok1（n）&&！isok2（n）&&！isok3（n）；

%o（PARI）

%o A063919（n）=我的（f=系数（n））；prod（i=1，#f~，f[i，1]^f[i、2]+1）-n

%o是（n）=我的（c=n）；对于（i=1,5，c=A063919（c））；如果（c==1|c==n，返回（0））；c=A063919（c）；c==n\\_David A.Corneth_，2018年10月1日

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

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

%Y参见A319902（订单4）、A097024（订单5）、A094030（订单14）。

%K nonn公司

%O 1,1号机组

%马库斯，2018年10月1日