A098941 - OEIS

%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