%I#15 2024年1月12日22:47:45

%S 1,1,27,17,33,70,23,29,51,37,92,41,74,43,82,65,69,47,53136106,87，

%电话：59,67,71154172118111,79146,83123378,89,97153212125101103，

%电话：1211191071132252501271592062022181551831311371391611020151169157149286

%N a（N）是最小的k，它不能被N个基数中的任何数字整除，如果没有这样的k，则为0。

%C a（n）是最小的k，如果存在，那么A055240（k）=n。

%C对于n=159，208，266，267，328，405，484，492，…，似乎a（n）=0。。。。

%a文件中0的C项是推测的：如果它们不是0，则它们>35000。

%H Robert Israel，n表，n=1..1000时的a（n）。0的条目是推测的。

%e a（3）=17，因为正好有3个基数，其中17不能被任何数字整除：这些基数是5、6、7，因为17=325=256=237，17不能被这些基数中的任何数字2、3和5整除。每隔一个基数，17至少可以被它的一个数字整除；例如，以10为基数，17可以被1整除。17是第一个有3个这样的基数的数字。

%p f:=进程（n）

%p nop（选择（b->非ormap（d->d<>0且n mod d=0，转换（n，base，b）），[$3..（n-1）/2]）

%p端程序：

%p V：=阵列（0..100）：计数：=0：

%当计数<101 do时，n从1开始为p

%p v：=f（n）；

%p如果v<=100且v[v]=0，则v[v]：=n；计数：=计数+1 fi；

%日期：

%p转换（V，列表）；

%t isDiv[k_，b_]：=模块[{d}，d=整数位数[k，b]；或@@（Mod[k，#]==0&/@DeleteCase[d，0]）]；

%tco[k_]：=co[k]=模[{c=0，b=2}，While[b<=k，If[Not[isDiv[k，b]]，c++]；b++]；c] ；

%ta[n_]：=a[n]=模块[{k=1}，而[co[k]！=n、 k++；]；k] ；

%t表[a[n]，{n，0，64}]（*_Robert P.P.McGone_，2024年1月10日*）

%o（Python）

%o从itertools导入计数，islice

%o来自sympy.theory.factor _导入数字

%o定义代理（）：

%o根，n=dict（），0

%o表示计数（1）中的k：

%o v=总和（1代表范围（2，k）中的i，如果全部（d==0或k%d代表数字（k，i）[1:]））

%o如果v不在adict:adict[v]=k中

%o while n in adict：生成adict[n]；n+=1

%o打印（列表（islice（agen），65））#_Michael S.Branicky_，2024年1月10日

%Y参考A055240。

%K nonn，基础

%0、2

%以色列罗贝尔特，2024年1月9日