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