|
|
偏移
|
1,1
|
|
|
评论
|
|
|
|
链接
|
|
|
|
例子
|
snud（1484）=864，snud。
|
|
|
数学
|
nusigma[1]=0；nusigma[n_]：=除数Sigma[1，n]-倍@@（1+幂@@@FactorInteger[n]）；序列={}；s1=0；Do[s2=nusigma[n]；如果[s1>0&&s2==s1，则追加到[seq，n-1]]；s1=s2，{n，1，10^6}]；序列(*阿米拉姆·埃尔达尔，2019年6月10日*）
|
|
|
程序
|
（PARI）snud（n）={sumdiv（n，d，if（gcd（d，n/d）！=1，d））}
{n=0；对于（m=1，10^9，s=snud（m）；如果（s>0&&s==snud（m+1），则写入（“b064115.txt”，n++，“”，m）；若（n==30，中断））}\\哈里·史密斯2009年9月7日
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
