|
|
抵消
|
1,2
|
|
|
评论
|
|
|
|
参考文献
|
J.Roberts，《整数的诱惑》，数学。美国协会，1992年，第86页。
N.J.A.Sloane和Simon Plouffe，《整数序列百科全书》，学术出版社，1995年（包括该序列）。
|
|
|
链接
|
J.Roberts，整数的诱惑，第81、86页的带注释扫描件，附注释。
Anna K.Savvopoulou和Christopher M.Wedrychowicz，关于具有给定除数的最小数《拉马努扬杂志》，2015年，第37卷，第51-64页。
|
|
|
MAPLE公司
|
对于n从1到10^5 do
t： =理论数量：-τ（n）；
如果未赋值（B[t]），则B[t]:=n fi；
日期：
|
|
|
数学
|
A007416号=Reap[For[s=1，s<=10^5，s++，If[Abs[Product[DivisorSigma[0，i]-DivisorSigma[0，s]，{i，1，s-1}]>0，打印[s]；母猪[s]]][[2,1]](*Jean-François Alcover公司2012年11月19日，巴黎之后*）
|
|
|
黄体脂酮素
|
（PARI）对于（s=1，10^6，如果（abs（prod（i=1，s-1，numdiv（i）-numdiv（s）））>0，打印1（s，“，”））
（PARI）是（n）=my（d=numdiv（n））；对于（i=1，n-1，如果（numdiv（i）==d，返回（0）））；1 \\查尔斯·格里特豪斯四世2013年2月20日
（平价）
1983年2月（n，f=因子（n））=prod（i=1，#f~，my（p=f[i，1]）；如果（p==2,6，下一素数（p+1））^f[i，2]）
A025487do（e）=my（v=列表（[1，2]），i=2，u=2^e，t）；当（v[i]！=u时，如果（2*v[i]<=u，则列表输入（v，2*v[i]）；t吨=1983年2月（v[i]）；如果（t<=u，列表输入（v，t））；i++）；集合（v）
winnow（v，lim=v[#v]）=my（m=Map（），u=List（））；对于（i=1，#v，如果（v[i]>lim，break）；我的（t=numdiv（v[i]））；如果（！mapisdefined（m，t），则mapput（m，t，0）；列表（u，v[i]））；m=0；Vec（u）（车辆）
列表（lim）=winnow（A025487do（logint（lim\1-1,2）+1），lim）\\查尔斯·格里特豪斯四世2022年11月17日
（哈斯克尔）
a007416 n=a007416_列表！！（n-1）
a007416_list=f 1[]其中
f x ts=如果tau`elem`ts，则f（x+1）ts其他x:f（x+1）（tau:ts）
其中tau=a000005'x
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,容易的,美好的
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
