A167679 Replace odd digits with 2 and even digits with 1.

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

Author

Zak Seidov, Nov 09 2009

Keywords

• base
• nonn

Crossrefs

Cf. A065031, A167677, A167678.

Programs

Mathematica

Table[FromDigits[If[OddQ[ # ],2,1]&/@IntegerDigits[n]],{n,0,200}]