OFFSET
1,1
COMMENTS
This is a 10-automatic language. - Charles R Greathouse IV, Oct 03 2011
MATHEMATICA
Select[Range[600], Union[Select[IntegerDigits[#], OddQ]]=={5}&] (* Harvey P. Dale, Jun 13 2014 *)
PROG
(Perl) for (0..1000) {
print "$_, " if (/^[024568]*5[024568]*$/)
} # Charles R Greathouse IV, Oct 05 2011
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Eric Angelini, Oct 21 2004
STATUS
approved
