login
A098945
Numbers where 1 is the only odd decimal digit.
2
1, 10, 11, 12, 14, 16, 18, 21, 41, 61, 81, 100, 101, 102, 104, 106, 108, 110, 111, 112, 114, 116, 118, 120, 121, 122, 124, 126, 128, 140, 141, 142, 144, 146, 148, 160, 161, 162, 164, 166, 168, 180, 181, 182, 184, 186, 188, 201, 210, 211, 212, 214, 216, 218
OFFSET
1,2
COMMENTS
This is a 10-automatic language. - Charles R Greathouse IV, Oct 05 2011
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
Sequence in context: A262393 A031089 A110186 * A323190 A046431 A108697
KEYWORD
base,easy,nonn
AUTHOR
Eric Angelini, Oct 21 2004
STATUS
approved