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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A307636型 具有k的两个除数共享一个公共数字的性质的数字k。 1
1, 2, 3, 4, 5, 6, 7, 8, 9, 23, 27, 29, 37, 43, 47, 49, 53, 59, 67, 73, 79, 83, 86, 87, 89, 97, 223, 227, 229, 233, 239, 257, 263, 267, 269, 277, 283, 293, 307, 337, 347, 349, 353, 359, 367, 373, 379, 383, 389, 397, 409, 433, 439, 443, 449, 457, 463, 467, 479, 487, 499, 503 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,2
链接
罗伯特·伊斯雷尔,n=1..10000时的n,a(n)表
乔戈斯·卡洛格罗普洛斯,敌对除数,Code Golf,2019年5月。
例子
9566是这样一个数字,因为它的除数是1、2、4783和9566,并且没有两个除数共享同一个数字。
MAPLE公司
过滤器:=proc(n)局部D,i,j;
D: =映射(t->convert(转换(t,base,10),集合),转换(数字理论:-除数(n),列表));
对于i从2到nops(D)do
对于从1到i-1的j do
如果D[i]与D[j]<>{}相交,则返回假fi
od od;
真的
结束进程:
选择(过滤器,[1..1000]美元)#罗伯特·伊斯雷尔2019年7月7日
数学
选择[范围@1000, !或@@IntersectingQ@@@子集[整数位数@除数[#], {2}]&]
黄体脂酮素
(PARI)isok(k)={my(d=除数(k),dd=apply(x->Set(digits(x)),d));对于(i=1,#dd,对于(j=i+1,#dd,if(#setintersect(dd[i],dd[j]),return(0)););返回(1);}\\米歇尔·马库斯2019年7月7日
(Python)
从itertools导入计数、组合、岛屿
从sympy导入除数
def A307636gen():返回过滤器(lambda n:all(len(set(s[0])&set(s[1]))==0表示组合中的s((str(d)表示除数中的d(n,generator=True),2)),计数(1))
A307636型_list=列表(islice(A307636gen(),20))#柴华湖2021年12月8日
交叉参考
A038603型是一个子序列。
关键词
非n基础
作者
状态
经核准的

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

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

上次修改时间:2024年6月11日12:05 EDT。包含373311个序列。(在oeis4上运行。)