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,1

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

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 *)

Prog

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

Crossrefs

Sequence in context: A371980 A217329 A133023 * A191086 A058302 A133213

Adjacent sequences: A098943 A098944 A098945 * A098947 A098948 A098949

Keyword

base,easy,nonn

Author

Eric Angelini, Oct 21 2004

Status

approved