OFFSET
1,2
COMMENTS
This is a 10-automatic language. - Charles R Greathouse IV, Oct 05 2011
LINKS
MAPLE
A[1]:= {0, 2, 4, 6, 8}: B[1]:= {1}:
for i from 2 to 3 do
A[i]:= A[i-1] union map(t -> seq(x*10^(i-1)+t, x=[2, 4, 6, 8]), A[i-1]);
B[i]:= B[i-1] union map(t -> seq(x*10^(i-1)+t, x=[2, 4, 6, 8]), B[i-1]) union map(t -> 10^(i-1)+t, A[i-1] union B[i-1]);
od:
sort(convert(B[3], list)); # Robert Israel, May 07 2020
MATHEMATICA
Select[Range[250], Max[Select[IntegerDigits[#], OddQ]]==1&] (* Harvey P. Dale, Mar 13 2022 *)
PROG
(Perl) for (0..1000) {
print "$_, " if (/^[012468]*1[012468]*$/)
} # Charles R Greathouse IV, Oct 05 2011
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Eric Angelini, Oct 21 2004
STATUS
approved