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

 

标志
提示
(来自的问候整数序列在线百科全书!)
55699英镑 a(n)是具有n个重复数字除数的最小数字。 6
1, 2, 4, 6, 12, 24, 72, 66, 666, 132, 1332, 264, 2664, 792, 13320, 3960, 14652, 26664, 48840, 29304, 79992, 341880, 146520, 399960, 1333332, 1025640, 2799720, 8879112, 2666664, 18666648, 7999992, 44395560, 13333320, 93333240, 39999960, 279999720, 269333064 (列表;图表;参考文献;;历史;文本;内部格式)
抵消
1,2
链接
David A.Corneth,PARI计划
例子
72有12个除数:{1,2,3,4,6,8,9,12,18,24,36,72},只有{1,2,3,4,6,8,9}是重复数;小于72的正整数没有七个重复数字除数,因此a(7)=72。
数学
f[n_]:=除数和[n,1&,长度[Union[Integer Digits[#]]]==1&];seq[len_,nmax_]:=模块[{s=表[0,{len}],c=0,n=1,i},而[c<len&&n<nmax,i=f[n];如果[i<=len&&s[[i]]==0,c++;s[[i]]=n];n++];s] ;序列[24,10^6](*阿米拉姆·埃尔达尔2022年7月15日*)
黄体脂酮素
(PARI)isrep(n)=1==#集合(数字(n))\\A010785号
a(n)=我的(k=1);while(sumdiv(k,d,isrep(d))!=n、 k++);k\\米歇尔·马库斯2022年7月15日
(PARI)参见PARI链接\\大卫·A·科内斯2022年7月26日
(Python)
从sympy导入除数
从itertools导入计数,islice
定义c(n):返回长度(集(str(n)))==1
def f(n):如果c(d),则返回和(1代表除数中的d(n,生成器=True))
定义代理():
n、 adict=1,dict()
对于计数(1)中的k:
fk=f(k)
如果fk不在adict:adict[fk]=k
而adict中的n:生成adict[n];n+=1
打印(列表(islice(agen(),21))#迈克尔·布拉尼基2022年7月26日
交叉参考
关键词
非n,基础,
作者
伯纳德·肖特2022年7月14日
扩展
a(9)-a(35)来自迈克尔·布拉尼基2022年7月14日
a(36)-a(37)来自迈克尔·布拉尼基2022年7月15日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年6月19日03:10。包含373492个序列。(在oeis4上运行。)