A098946 Numbers where 3 is the only odd decimal digit.

3, 23, 30, 32, 33, 34, 36, 38, 43, 63, 83, 203, 223, 230, 232, 233, 234, 236, 238, 243, 263, 283, 300, 302, 303, 304, 306, 308, 320, 322, 323, 324, 326, 328, 330, 332, 333, 334, 336, 338, 340, 342, 343, 344, 346, 348, 360, 362, 363, 364, 366, 368, 380, 382

Offset: 1

Author

Eric Angelini, Oct 21 2004

Keywords

• base
• easy
• nonn

Comments

This is a regular language in base 10. [Charles R Greathouse IV, Oct 05 2011]

Links

• Robert Israel, Table of n, a(n) for n = 1..10000
• Index entries for 10-automatic sequences

Programs

Maple

S:= [0,2,3,4,6,8]:
f:= proc(n) local L,i;
  L:= convert(n,base,6);
  if member(2,L) then
    add(S[L[i]+1]*10^(i-1),i=1..nops(L))
  fi
end proc:
map(f, [$1..200]); # Robert Israel, Feb 05 2019

Mathematica

Select[Range[400],Union[Select[IntegerDigits[#],OddQ]]=={3}&] (* Harvey P. Dale, May 05 2017 *)

Perl

for (0..1000) {
    print "$_, " if (/^[023468]*3[023468]*$/)
} # Charles R Greathouse IV, Oct 05 2011