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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A123345号 二进制表示中包含所有除数的数字。 5
1, 2, 3, 4, 5, 6, 7, 8, 10, 11, 12, 13, 14, 16, 17, 19, 20, 22, 23, 24, 26, 28, 29, 31, 32, 34, 37, 38, 40, 41, 43, 44, 46, 47, 48, 52, 53, 55, 56, 58, 59, 61, 62, 64, 67, 68, 71, 73, 74, 76, 79, 80, 82, 83, 86, 88, 89, 92, 94, 96, 97, 101, 103, 104, 106, 107, 109, 112, 113, 116, 118 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,2
链接
莱因哈德·祖姆凯勒(Reinhard Zumkeller),n=1..10000时的n,a(n)表
数学
q[n_]:=AllTrue[Divisors[n],StringContainsQ[IntegerString[n,2],Integer字符串[#,2]]&];选择[范围[100],q](*阿米拉姆·埃尔达尔2022年6月5日*)
黄体脂酮素
(哈斯克尔)
导入数据。列表(展开器,isInfixOf)
a123345 n=a123345_列表!!(n-1)
a123345_list=过滤器
(\x->all(`isInfixOf`b x)$map b$a027750_row x)[1..]其中
b=展开器(\x->如果x==0,则无其他内容,仅$swap$divMod x 2)
--莱因哈德·祖姆凯勒2012年10月27日
(Python)
从sympy导入除数
定义正常(n):
b=箱(n)[2:]
return n and all(bin(d)[2:]in b for d in divisors(n,generator=True))
打印([k代表范围(119)中的k,如果正常(k)])#迈克尔·布拉尼基2022年6月5日
交叉参考
的补语A093642号。不同于A093641号.
囊性纤维变性。A000040美元(子序列),A027750型,A218388型.
关键词
非n,基础
作者
状态
经核准的

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

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

上次修改时间:2024年6月5日14:50 EDT。包含373107个序列。(在oeis4上运行。)