登录
OEIS由
OEIS基金会的许多慷慨捐赠者
.
提示
(来自的问候
整数序列在线百科全书
!)
A246774号
最小数x,使得sigma(x)=sigma。
1
60, 482, 3903, 5667, 175, 68951, 11039, 76939, 1157, 22746, 19847, 16195, 23806, 345855, 824059, 269862, 2484227, 809358, 94558183, 98337630, 6504935
(
列表
;
图表
;
参考文献
;
听
;
历史
;
文本
;
内部格式
)
抵消
1,1
链接
n=1..21时的n,a(n)表。
例子
x=175的前5个算术导数是95、24、44、48、112和西格玛(175)=西格玛(112)=48。
x=1157的前9个算术导数是102、91、20、24、44、48、112、240、608,σ(1157)=σ(608)=1260。
MAPLE公司
带有(数字理论);
P: =proc(q)局部a、b、k、n、P、t;
对于n从1到q do,对于k从1到qdot:=1;
b: =k;
而t<=n做a:=b*加(op(2,p)/op(1,p),p=ifactors(b)[2]);
b: =a;
t: =t+1;
od;
如果σ(k)=σ(a)和k≤a,则lprint(n,k);
断裂;
fi;
od;
od;
结束:P(10^6);
数学
d[n_]:=如果[n<2,0,n*总计[#2/#1&@@@FactorInteger[n]]];
dd[n,k_]:=嵌套[d,n,k];
σ[x_]:=如果[x>0,除数σ[1,x],0];
aQ[x_,n_]:=模块[{xx=dd[x,n]},xx!=
x&&sigma[x]==西格玛[xx]];
a[n_]:=模块[{k=1},而[!aQ[k,n],k++];
k] ;
数组[a,10](*
阿米拉姆·埃尔达尔
2019年4月6日*)
交叉参考
囊性纤维变性。
A000203号
,
A003415号
,
A246775号
.
上下文中的序列:
A088943号
A097387号
A057096号
*
A341597飞机
A334306飞机
A069140型
相邻序列:
A246771号
A246772号
246673英镑
*
246775英镑
A246776号
A246777号
关键词
非n
,
更多
作者
保罗·拉瓦
2014年9月3日
扩展
a(15)-a(21)来自
阿米拉姆·埃尔达尔
2019年4月6日
状态
经核准的