编辑
经核准的
囊性纤维变性。A365993型,A365994A366059, A365994型, A366059型, A366060型.
囊性纤维变性。A365993型,A365994型A365994A366059, A366060型.
提出
迈克尔·布拉尼基:Giorgos,Eric,我为记录和位置创建了A366059和A366060(编辑中)。如果你想加入成为合著者,或者只是加入你自己,请告诉我!
囊性纤维变性. A365993型,A365994型.
乔戈斯·卡洛格罗普洛斯:谢谢你,迈克尔!
(Python)
从sympy导入除数
定义a(n):
k、 步骤=n,1
为True时:
s=设置()
对于除数中的d(k,生成器=True):
v、 w=str(d),str(k//d)
如果“0”不在v中,“0”也不在w中:
s.add(int(v+“0”+w))
如果len(s)==0:返回步骤
k、 步数=分钟,步数+1
打印([a(n)代表范围(1101)中的n)]#迈克尔·布拉尼基2023年9月26日
迈克尔·布拉尼基:同上:只是一个程序;匹配所有术语。
表[长度@最大@NestWhileList[(d=除数@#;
最小[选择[FromDigits@扁平[Integer Digits/@Riffle[#,0]]&/@表格[{d[k]],d[[长度@d-k+1] ]},{k,长度@d}],计数[IntegerDigits@#,0]<2&]])&,k,IntegerQ],{k,100}]