mex[list_，start_]：=（NestWhile[#+1&，start，MemberQ[list，#]&]）；
c=2；a={1}；b={2}；x={2}；
Do[AppendTo[b，mex[Flatten[｛a，b｝]，1]；
附加到[x，-符号[Last[x]]]；
追加到[a，c最后[a]+（反向[x]b//总计）]，{25}]
网格[｛Join[｛“n”｝，范围[0，#-1]]，Join[｛“a（n）”｝，Take[a，#]]，
连接[{“b（n）”}，取[b，#]]，连接[{x（n）“}，取自[x，#]]}，
对齐->“.”，
分隔符->{{2->红色，-1->蓝色}，{2->红，-1->蓝}}]&[18]
