OFFSET
0,2
MATHEMATICA
Table[FromDigits[If[OddQ[ # ], 2, 1]&/@IntegerDigits[n]], {n, 0, 200}]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Nov 09 2009
STATUS
approved