|
| |
|
|
A107776
|
|
a(1)=5, a(n) = smallest integer not previously used which contains a digit from a(n-1).
|
|
9
|
|
|
|
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, 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
|
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
|
|
|
LINKS
|
Table of n, a(n) for n=1..72.
|
|
|
MATHEMATICA
|
f[l_] := Block[{c = 0}, While[ MemberQ[l, c] || Intersection @@ IntegerDigits /@{Last[l], c}=={}, c++ ]; Return[Append[l, c]]]; Nest[f, {5}, 70] (*Chandler*)
|
|
|
CROSSREFS
|
Cf. A107353, A107772, A107773, A107774, A107775, A107777, A107778, A107779, A107780, A107781.
Sequence in context: A156219 A000331 A082269 * A161202 A154353 A114332
Adjacent sequences: A107773 A107774 A107775 * A107777 A107778 A107779
|
|
|
KEYWORD
|
base,nonn
|
|
|
AUTHOR
|
Eric Angelini & Zak Seidov, May 24 2005
|
|
|
STATUS
|
approved
|
| |
|
|
