%I#10 2013年10月31日12:17:22

%S 0,1,2,3,3,4,6,8,8,9,10,11,13,16,17,18,19,22,23,26,28,30,32,33,35，

%电话：37,39,41,43,45,47,49,51,53,55,57,59,61,63,65,67,69,71,73,75,77,79,81，

%U 83,86,88,90,92,94,96,99101103107110112114119121123125单位

%N a（N）是N和N^N之间的Levenstein距离（其中每个都被视为字符串）。

%H M.Gilleland，<a href=“http://www.merriampark.com/ld.htm“>Levenshtein距离</a>。[有人建议此算法有时会给出错误的结果。-N.J.a.Sloane_]

%e a（9）=8，因为我们可以通过8次插入将9转换为9^9=387420489，即在9前面插入3,8,7,4,0,4和8。a（2）=1，因为我们可以通过一次替换将2转换为2^2=4，即4换2。

%t 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]]]；

%t f[n_]：=levenshtein[整数位数[n]，整数位数[n ^n]]；数组[f，69]（*_Robert G.Wilson v_*）

%Y参考A081231、A081232、A081233、A081244。

%K nonn，基础

%氧1,3

%A Francois Jooste（pin（AT）myway.com），2003年3月11日

%E由_Robert G.Wilson v_修订，2006年1月25日