%I#29 2024年2月4日18:26:49

%第6,30,42,54,60,901412611401260148218781890214221782418页，

%电话295835223534358237743906395439663978415844344446，

%电话：1801822302241802958032130352203523340358203774038682390603959540396603978040446416415804344404477245402

%作为酉西格玛等分环（酉完美数、酉友好数和酉社交数的并集）成员的N个数。

%C A327159中非零的位置。

%C数n，其中n=A034460^k（n），对于某些k>=1，其中A034460^k（n）表示从n开始的A034460的k倍应用。

%C不是6的倍数的术语是：142310、168730、1077890、1099390、1156870、1292570。。。，这些似乎都出现在A063991中。

%C在前440个术语中，数字以1周期（A002827）、2周期（A063991）和大小为3、4（A319902）、5（A097024）、6（A319917）、14（A097030）、25、26、39和65的周期表示。

%H Antti Karttunen，n的表，n=1..440的a（n）</a>

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

%e 6是A034460（6）=6的成员。

%e 30是A034460（A034460（A034460（30）））=30的成员。

%t（*功能循环L[]和支持a034460[]在A327159*中定义）

%t a327157[n_]：=地图[循环L，范围[n]]

%t a327157[45402]（*哈特穆特·F·W·霍夫特，2024年2月4日*）

%o（PARI）

%o A034448（n）={my（f=因子（n））；prod（k=1，#f~，1+（f[k，1]^f[k、2]））；}；

%o A034460（n）=（A034448（n）-n）；

%o备忘录327159=地图（）；

%o A327159（n）=如果（1==n，0，my（v，orgn=n，xs=Set（[]））；if（mapisdefined（memo327159，n，&v），v，while（n&&！vecsearch（xs，n），xs=集合联合（[n]，xs）；n=A034460（n）；if（mapisdefined（memo327159，n），对于（i=1，#xs，mapput（memo3127159，xs[i]，0））；返回（0））；如果（n==orgn，v=长度（xs）；对于（i=1，v，mapput（memo327159，xs[i]，v）），v=0；地图（memo327159，orgn，v））；（v） ）；

%o k=0；n=0；而（k<=1001，n++；如果（t=A327159（n），k++；打印（n，“->”，t）；写入（“b327157.txt”，k，“”，n））；

%Y参见A002827、A063991、A097024、A097030、A319902、A319917、A319937（子序列）、A034448、A034460、A0970.31、A327159。

%Y A003062的子序列。

%K nonn公司

%O 1，1

%A _Antti Karttunen，2019年9月17日