|
%I #10 Apr 18 2020 00:46:08
%S 2,12,21,22,23,25,27,29,32,52,72,92,112,121,122,123,125,127,129,132,
%T 152,172,192,211,212,213,215,217,219,221,222,223,225,227,229,231,232,
%U 233,235,237,239,251,252,253,255,257,259,271,272,273,275,277,279,291,292
%N Numbers where 2 is the only even decimal digit.
%C This is a 10-automatic language. - _Charles R Greathouse IV_, Oct 05 2011
%H <a href="/index/Ar#10-automatic">Index entries for 10-automatic sequences</a>
%t Select[Range[300],Union[Select[IntegerDigits[#],EvenQ]]=={2}&] _Harvey P. Dale_, May 20 2012
%o (Perl) for (0..1000) {
%o print "$_, " if (/^[123579]*2[123579]*$/)
%o } # _Charles R Greathouse IV_, Oct 05 2011
%K base,easy,nonn
%O 1,1
%A _Eric Angelini_, Oct 21 2004
|
