%I A107776
%S A107776 5,15,1,10,0,20,2,12,11,13,3,23,21,14,4,24,22,25,26,6,16,17,7,27,28,8,
%T A107776 18,19,9,29,32,30,31,33,34,35,36,37,38,39,43,40,41,42,44,45,46,47,48,49,
%U A107776 54,50,51,52,53,55,56,57,58,59,65,60,61,62,63,64,66,67,68,69,76,70
%N A107776 a(1)=5, a(n) = smallest integer not previously used which contains a 
               digit from a(n-1).
%C A107776 Cf. A107353 a(1)=0, A107772 a(1)=1, A107773 a(1)=2, A107774 a(1)=3, A107775 
               a(1)=4, A107777 a(1)=6, A107778 a(1)=7, A107779 a(1)=8, A107780 a(1)=9, 
               A107781 a(1)=10
%t A107776 f[l_] := Block[{c = 0}, While[ MemberQ[l, c] || Intersection @@ IntegerDigits 
               /@{Last[l], c}=={}, c++ ];Return[Append[l, c]]];Nest[f, {5}, 70] 
               (*Chandler*)
%Y A107776 Cf. A107353, A107772, A107773, A107774, A107775, A107777, A107778, A107779, 
               A107780, A107781.
%Y A107776 Sequence in context: A156219 A000331 A082269 this_sequence A161202 A154353 
               A114332
%Y A107776 Adjacent sequences: A107773 A107774 A107775 this_sequence A107777 A107778 
               A107779
%K A107776 base,nonn
%O A107776 1,1
%A A107776 Eric Angelini (eric.angelini(AT)kntv.be) & Zak Seidov (zakseidov(AT)yahoo.com), 
               May 24 2005