

A107777


a(1)=6, a(n) = smallest integer not previously used which contains a digit from a(n1).


9



6, 16, 1, 10, 0, 20, 2, 12, 11, 13, 3, 23, 21, 14, 4, 24, 22, 25, 5, 15, 17, 7, 27, 26, 28, 8, 18, 19, 9, 29, 32, 30, 31, 33, 34, 35, 36, 37, 38, 39, 43, 40, 41, 42, 44, 45, 46, 47, 48, 49, 54, 50, 51, 52, 53, 55, 56, 57, 58, 59, 65, 60, 61, 62, 63, 64, 66, 67, 68, 69, 76, 70
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS



LINKS



MATHEMATICA

f[l_] := Block[{c = 0}, While[ MemberQ[l, c]  Intersection @@ IntegerDigits /@{Last[l], c}=={}, c++ ]; Return[Append[l, c]]]; Nest[f, {6}, 70] (* Ray Chandler, Jul 19 2005 *)


CROSSREFS



KEYWORD

base,nonn


AUTHOR



STATUS

approved



