login
A167679
Replace odd digits with 2 and even digits with 1.
2
1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 21, 22, 21, 22, 21, 22, 21, 22, 21, 22, 11, 12, 11, 12, 11, 12, 11, 12, 11, 12, 21, 22, 21, 22, 21, 22, 21, 22, 21, 22, 11, 12, 11, 12, 11, 12, 11, 12, 11, 12, 21, 22, 21, 22, 21, 22, 21, 22, 21, 22, 11, 12, 11, 12, 11, 12, 11, 12, 11, 12, 21, 22, 21
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