|
%I #6 Mar 31 2017 20:37:15
%S 2,2,1,1,2,1,2,1,2,2,22,22,21,21,22,21,22,21,22,22,12,12,11,11,12,11,
%T 12,11,12,12,12,12,11,11,12,11,12,11,12,12,22,22,21,21,22,21,22,21,22,
%U 22,12,12,11,11,12,11,12,11,12,12,22,22,21,21,22,21,22,21,22,22,12,12,11
%N Replace prime digits with 1 and nonprime digits with 2.
%t Table[FromDigits[If[PrimeQ[ # ],1,2]&/@IntegerDigits[n]],{n,0,200}]
%Y Cf. A065031, A167678, A167679.
%K base,nonn
%O 0,1
%A _Zak Seidov_, Nov 09 2009
|
