|
| |
|
| A050226号 |
| 数字n使n除和{k=1..n}A000005号（k） ●●●●。 |
|
27
|
|
|
|
1, 4, 5, 15, 42, 44, 47, 121, 336, 340, 347, 930, 2548, 6937, 6947, 51322, 379097, 379131, 379133, 2801205, 20698345, 56264090, 56264197, 152941920, 152942012, 8350344420, 61701166395, 455913379395, 455913379831, 1239301050694, 3368769533660, 3368769533812
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
参考文献
|
朱利安·哈维尔（Julian Havil），“伽马：探索欧拉常数”，普林斯顿大学出版社，普林斯顿和牛津，第112-113页，2003年。
|
|
|
链接
|
多诺万·约翰逊，n=1..39时的n，a（n）表（商<=40）
|
|
|
配方奶粉
|
如果和{i=1..n}d（i）=n*k，k是整数，其中d（n）=n的除数个数，则n在序列中。
|
|
|
例子
|
对于n=15，总和为1+2+2+3+2+4+2+4+4+3+4+2+6+2+4+4=45，可被15整除。
|
|
|
MAPLE公司
|
带有（数字理论）；列表A050226:=proc（q）局部a，n；a： =0；
对于从1到q的n，做a:=a+τ（n）；如果（a mod n）=0，则打印（n）；fi；
od；结束：列表A050226（10^9）#保罗·拉瓦2013年6月28日
|
|
|
数学
|
s=0；Do[s=s+除数Sigma[0，n]；如果[Mod[s，n]==0，打印[n]]，{n，1，2*10^9}]
k=10^6；a[1]=1；a[n]：=a[n]=除数Sigma[0，n]+a[n-1]；nd=a/@范围@k; 选择[范围@k，可除[nd[[#]]，#]&](*伊万·伊纳基耶夫2016年4月30日*）
模块[{nn=400000}，选择[Thread[{Range[nn]，Accumulate[DivisorSigma[0，Range[n]]}]，Divisible[#[2]]，#[[1]]&]][[All，1]]（*程序生成序列的前19个项。要生成更多项，请增加nn常量。*）(*哈维·P·戴尔2022年7月3日*）
|
|
|
黄体脂酮素
|
（PARI）列表a（nn）={my（s=0）；对于（n=1，nn，s+=numdiv（n）；如果（！（s%n），打印1（n，“，”）；）；}\\米歇尔·马库斯2015年12月14日
（鼠尾草）
定义A050226号_列表（长度）：
a、 L=0，[]
对于（1..len）中的n：
a+=西格玛（n，0）
如果n除（a）：L附加（n）
返回L
A050226号_列表（10000）#彼得·卢什尼2015年12月18日
|
|
|
交叉参考
|
囊性纤维变性。A000005号,A006218号,A057494号,A085567号,A085829号.
上下文中的序列：A304921型 A357927飞机 A051721号*A119562号 A289021型 A323627飞机
相邻序列：A050223号 A050224号 A050225号*A050227号 A050228号 A050229号
|
|
|
关键词
|
非n,美好的
|
|
|
作者
|
拉博斯·埃利默1999年12月20日
|
|
|
扩展
|
更多术语来自罗伯特·威尔逊v2000年9月21日
进一步条款来自野本直弘2001年8月3日
a（26）-a（30）来自多诺万·约翰逊2008年12月21日
|
|
|
状态
|
经核准的
|
| |
|
|
