Search: id:A081355
Results 1-1 of 1 results found.

%I A081355
%S A081355 0,0,1,1,2,1,1,2,2,2,1,1,2,2,2,2,2,3,3,3,2,2,3,2,3,1,2,2,2,3,2,2,3,4,4,
%T A081355 3,3,3,4,4,3,3,4,3,4,3,3,4,4,3,2,3,4,4,4,3,3,4,4,4,2,3,4,3,4,3,3,4,3,3,
%U A081355 3,3,4,3,3,3,2,4,3,4,3,3,3,3,4,3,3,4,4,3,3,3,4,4,4,2,2,3,3,3,2,2,3,3,3
%N A081355 Levenshtein distance between n and n^2 in decimal representation.
%H A081355 Michael Gilleland, <a href="http://www.merriampark.com/ld.htm">Levenshtein 
               Distance</a>. [It has been suggested that this algorithm gives incorrect 
               results sometimes. - N. J. A. Sloane (njas(AT)research.att.com)]
%t A081355 levenshtein[s_List, t_List] := Module[{d, n = Length@s, m = Length@t}, 
               Which[s === t, 0, n == 0, m, m == 0, n, s != t, d = Table[0, {m + 
               1}, {n + 1}]; d[[1, Range[n + 1]]] = Range[0, n]; d[[Range[m + 1], 
               1]] = Range[0, m]; Do[ d[[j + 1, i + 1]] = Min[d[[j, i + 1]] + 1, 
               d[[j + 1, i]] + 1, d[[j, i]] + If[ s[[i]] === t[[j]], 0, 1]], {j, 
               m}, {i, n}]; d[[ -1, -1]] ]];
%t A081355 f[n_] := levenshtein[IntegerDigits[n], IntegerDigits[n^2]]; Table[f[n], 
               {n, 0, 104}] (from Robert G. Wilson v (rgwv(at)rgwv.com), Jan 25 
               2006)
%Y A081355 Cf. A081356, A002061, A000290, A081230.
%Y A081355 Sequence in context: A109073 A026465 A051486 this_sequence A060778 A096492 
               A053874
%Y A081355 Adjacent sequences: A081352 A081353 A081354 this_sequence A081356 A081357 
               A081358
%K A081355 nonn,base
%O A081355 0,5
%A A081355 Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Mar 18 2003

Search completed in 0.001 seconds