OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A308486型 除数之和除以除数串联(升序)的数字。 2
1, 2, 6, 10, 40, 98, 112, 120, 1904, 2680, 4040, 4128, 5136, 9920, 12224, 17900, 20880, 27800, 44160, 55520, 57121, 62240, 86866, 158880, 178120, 1431808, 1773920, 1825280, 1918640, 3751328, 5452288, 6749600, 7262120, 7446720, 9916832, 17777440, 46168000, 101829808 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,2
评论
数字k是这样的A000203号(k) 划分A037278号(k) -米歇尔·马库斯2019年6月2日。
类似A308533型其中考虑了反除数。
链接
乔瓦尼·雷斯塔,n=1..50时的n,a(n)表
例子
98的除数是1、2、7、14、49、98,它们的和是σ(98)=171。那么,127144998/171=743538。
MAPLE公司
使用(数字理论):P:=proc(q)局部n;对于从1到q的n,如果frac(parse(cat(op(sort([op(divisors(n))])))/sigma(n))=0,则执行
打印(n);fi;od;结束:P(10^6);
数学
选择[Range[10^6],Mod[FromDigits@Flatten@IntegerDigits[#],Total@#]==0&@Divisors@#&](*迈克尔·德弗利格2019年6月3日*)
黄体脂酮素
(岩浆)k:=1;溶胶:=[];
对于[1..10000000]中的u,D:=除数(u);浓度:=D[1];
对于[2..#D]中的u1,执行a:=#Intseq(conc);a1:=#内部序列(D[u1]);conc:=10^a1*conc+D[u1];
结束;
如果conc mod SumOfDivisors(u)eq 0,则sol[k]:=u;k: =k+1;结束条件:;
结束;
溶胶//马吕斯·A·伯蒂2019年6月1日
(PARI)concd(n)=my(d=除数(n),s=“”);fordiv(n,d,s=concat(s,Str(d)));评估\\A037278号
isok(n)=(concd(n)%σ(n))==0\\米歇尔·马库斯2019年6月5日
交叉参考
关键词
非n,基础
作者
保罗·拉瓦2019年5月31日
扩展
a(30)-a(38)来自乔瓦尼·雷斯塔2019年5月31日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新的seq。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年5月24日14:14。包含372773个序列。(在oeis4上运行。)