A098947 - OEIS

%I #11 Apr 18 2020 00:49:08

%S 5,25,45,50,52,54,55,56,58,65,85,205,225,245,250,252,254,255,256,258,

%T 265,285,405,425,445,450,452,454,455,456,458,465,485,500,502,504,505,

%U 506,508,520,522,524,525,526,528,540,542,544,545,546,548,550,552,554

%N Numbers where 5 is the only odd decimal digit.

%C This is a 10-automatic language. - _Charles R Greathouse IV_, Oct 03 2011

%H <a href="/index/Ar#10-automatic">Index entries for 10-automatic sequences</a>

%t Select[Range[600],Union[Select[IntegerDigits[#],OddQ]]=={5}&] (* _Harvey P. Dale_, Jun 13 2014 *)

%o (Perl) for (0..1000) {

%o     print "$_, " if (/^[024568]*5[024568]*$/)

%o } # _Charles R Greathouse IV_, Oct 05 2011

%K base,easy,nonn

%O 1,1

%A _Eric Angelini_, Oct 21 2004