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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A359074型 至少有两个除数且数字和相等的数字。 4
10, 12, 18, 20, 21, 22, 24, 27, 30, 36, 40, 42, 44, 45, 48, 50, 52, 54, 60, 63, 66, 70, 72, 80, 81, 84, 88, 90, 96, 100, 102, 104, 105, 108, 110, 111, 112, 114, 115, 117, 120, 124, 126, 130, 132, 133, 135, 136, 140, 144, 147, 150, 152, 153, 154, 156, 160, 162, 165 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,1
评论
如果k是一个项,那么k的倍数也是-罗伯特·伊斯雷尔2022年12月20日
链接
哈维·P·戴尔,n=1..1000时的n,a(n)表
例子
24是一个术语,因为它有两对除数,数字之和相等:3和12;6和24所示。
MAPLE公司
q: =n->(s->是(nops(s)>nops({s[]}))(映射(x->add(i,i=转换(x,
基数,10)),[numtheory[除数](n)[]]):
选择(q,[$1.1.165])[]#阿洛伊斯·海因茨2022年12月18日
数学
a={};对于[k=1,k<=165,k++,If[Length[Intersection[Table[Total[Part[Integer Digits[Divisors[k]],i]],{i,DivisorSigma[0,k]}]],<Divisor Sigma[0,k],AppendTo[a,k]]];
tdesQ[n_]:=AnyTrue[Tally[Total[Integer Digits[#]]&/@Divisors[n]][[All,2]],#>1&];选择[范围[200],tdesQ](*哈维·P·戴尔2023年1月13日*)
黄体脂酮素
(Python)
从sympy导入除数
定义sod(n):返回和(map(int,str(n)))
定义正常(n):
s=设置()
对于除数(n,生成器=True)中的d:
sd=超氧化物歧化酶(d)
如果sd在s中:return True
s.添加(sd)
返回False
打印([k表示范围(166)内的k,如果ok(k)])#迈克尔·布拉尼基2022年12月15日
(PARI)isok(k)=my(d=除数(k))#设置(应用(总和,d))<#d\\米歇尔·马库斯2022年12月19日
交叉参考
的补充A359075型.
囊性纤维变性。A000005号,A007953号,A359076型(适当的除数)。
关键词
非n,基础
作者
状态
经核准的

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

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

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