|
抵消
|
1,1
|
|
评论
|
对于正n,a(n+1)的字符串长度始终是a(n)的1+字符串长度。这个序列是无限的。
|
|
链接
|
|
|
配方奶粉
|
a(0)=2,a(n+1)=最小素数p,使得LD(a(n),p)=n,其中LD(a,B)=从a到B的Levenshtein距离,作为十进制字符串。
|
|
例子
|
a(1)=3,因为我们用一个替换将a(0)=2转换为3(素数)。
a(2)=11,因为我们用1个替换加1个插入将a(1)=3转换为最小素数11。
a(3)=223,因为我们用两个替换加一个插入将a(2)=11转换为素数223,并且任何较小的素数都可以用不到3个步骤从11转换。
|
|
数学
|
levenshtein[s_List,t_List]:=模块[{d,n=长度@s,米=长度@t},其中[s===t,0,n==0,m,m==0、n,s!=t,d=表[0,{m+1},{n+1}];d[[1,范围[n+1]]]=范围[0,n];d[[范围[m+1],1]]=范围[0,m];Do[d[[j+1,i+1]]=最小值[d[[j,i+1]]+1,d[[j+1,i]]+1,d[[j,i]]+如果[s[[i]]==t[[j]],0,1]],{j,m},{i,n}];d[[-1,-1]]];
NextPrim[n_]:=块[{k=n+1},While[!底漆Q@k,k++];k] ;a[0]=2;a[n_]:=a[n]=块[{q=整数位数[a[n-1]][[1],id=整数位数@a[n-1]},p=NextPrim[如果[q==1,楼层[199*10^(n-1)/90-1],10^(n-1)]];而[levenshtein[id,整数位数@p] != n、 p=NextPrim@p]; p] ;表[a[n],{n,0,19}](*Robert G.Wilson诉2006年1月25日*)
|
|
交叉参考
|
|
|
关键词
|
基础,非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|