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