login
A096844
Numbers where 0 is the only even decimal digit.
3
0, 10, 30, 50, 70, 90, 100, 101, 103, 105, 107, 109, 110, 130, 150, 170, 190, 300, 301, 303, 305, 307, 309, 310, 330, 350, 370, 390, 500, 501, 503, 505, 507, 509, 510, 530, 550, 570, 590, 700, 701, 703, 705, 707, 709, 710, 730, 750, 770, 790, 900, 901, 903, 905
OFFSET
1,2
COMMENTS
This is a regular language in base 10. - Charles R Greathouse IV, Oct 05 2011
MATHEMATICA
Select[Range[0, 1000], DigitCount[#, 10, 0]>0&&AllTrue[DeleteCases[IntegerDigits[ #], 0], OddQ]&] (* Harvey P. Dale, Mar 20 2023 *)
PROG
(Perl) for (0..1000) {
print "$_, " if (/^[013579]*0[013579]*$/)
} # Charles R Greathouse IV, Oct 05 2011
(Python)
from itertools import product
def agen(maxdigits):
yield 0
for digs in range(2, maxdigits+1):
for p in product("013579", repeat=digs):
if p[0] != '0' and '0' in p: yield int("".join(p))
print([an for an in agen(3)]) # Michael S. Branicky, Jun 26 2021
CROSSREFS
Cf. A276137 (allowing no 0 digits).
Cf. A098941 (2), A098942 (4), A098943 (6), A098944 (8).
Cf. A098945 (1), A098946 (3), A098947 (5), A098948 (7), A098949 (9).
Sequence in context: A326122 A027183 A333300 * A031299 A124164 A318624
KEYWORD
base,easy,nonn
AUTHOR
Eric Angelini, Oct 21 2004
EXTENSIONS
a(50)=790 inserted by Georg Fischer, Jun 26 2021
STATUS
approved