OFFSET
0,3
MATHEMATICA
id[t_]:=IntegerDigits[t]; bb={1, 0}; cc={1, 0}; 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
AUTHOR
Zak Seidov & Eric Angelini, May 25 2005
STATUS
approved