A167679 - OEIS

%I #4 Mar 31 2017 20:35:15

%S 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,

%T 11,12,11,12,21,22,21,22,21,22,21,22,21,22,11,12,11,12,11,12,11,12,11,

%U 12,21,22,21,22,21,22,21,22,21,22,11,12,11,12,11,12,11,12,11,12,21,22,21

%N Replace odd digits with 2 and even digits with 1.

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

%Y Cf. A065031, A167677, A167678.

%K base,nonn

%O 0,2

%A _Zak Seidov_, Nov 09 2009