OFFSET
0,3
COMMENTS
Case a(1)=1,a(2)=0, A107860.
MATHEMATICA
id[t_]:=IntegerDigits[t]; bb={0, 1}; cc={0, 1}; Do[Do[d=Abs[cc[[k]]-cc[[k+1]]]; If[MemberQ[id[m], d]&&!MemberQ[bb, m], bb=Append[bb, m]; cc=Flatten[{cc, id[m]}]; Break[]], {m, 1, 1000}], {k, 1, 100}]; bb
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Eric Angelini & Zak Seidov, May 25 2005
STATUS
approved