%I#10 2015年7月16日09:39:25
%S 1,0,11,15111121111111120111111111111111310111011111,
%电话1111111 20111111111111161111111111111 11111111111311111111111,
%U 1111111111 211111111111111111电话
%N考虑将k视为十进制字符串和k视为二进制字符串之间的Levenshtein距离。然后a(N)是最大的数字m,因此如果不存在这样的数字,Levenshtien距离为N或0。
%C A115779和A115778之间的差异:1、0、9、11、103、99、979、1047、1789、10855、15599、109067、128789、1006889、1102919、1988889、11078343。。。,。
%F a(1)=0,因为没有数字满足定义,通常a(n)>=2^(n+1)。
%t levenshtein[s_List,t_List]:=模块[{d,n=长度@s,m=长度@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]]];
%t t=表[0,{25}];f[n_]:=levenshtein[整数位数[n],整数位数[n,2];做[t[[f@n+1]]=n,{n,10^6}];t吨
%Y参考A000027、A007088、A115777。
%K更多,非n,基数
%0、3
%A _Robert G.Wilson v_,2006年1月26日
%E a(18)-a(23),来自L ars Blomberg,2015年7月16日
|