|
%I #27 Mar 20 2023 09:08:17
%S 0,10,30,50,70,90,100,101,103,105,107,109,110,130,150,170,190,300,301,
%T 303,305,307,309,310,330,350,370,390,500,501,503,505,507,509,510,530,
%U 550,570,590,700,701,703,705,707,709,710,730,750,770,790,900,901,903,905
%N Numbers where 0 is the only even decimal digit.
%C This is a regular language in base 10. - _Charles R Greathouse IV_, Oct 05 2011
%H Harvey P. Dale, <a href="/A096844/b096844.txt">Table of n, a(n) for n = 1..1000</a>
%H <a href="/index/Ar#10-automatic">Index entries for 10-automatic sequences</a>
%t Select[Range[0,1000],DigitCount[#,10,0]>0&&AllTrue[DeleteCases[IntegerDigits[ #],0],OddQ]&] (* _Harvey P. Dale_, Mar 20 2023 *)
%o (Perl) for (0..1000) {
%o print "$_, " if (/^[013579]*0[013579]*$/)
%o } # _Charles R Greathouse IV_, Oct 05 2011
%o (Python)
%o from itertools import product
%o def agen(maxdigits):
%o yield 0
%o for digs in range(2, maxdigits+1):
%o for p in product("013579", repeat=digs):
%o if p[0] != '0' and '0' in p: yield int("".join(p))
%o print([an for an in agen(3)]) # _Michael S. Branicky_, Jun 26 2021
%Y Cf. A276137 (allowing no 0 digits).
%Y Cf. A098941 (2), A098942 (4), A098943 (6), A098944 (8).
%Y Cf. A098945 (1), A098946 (3), A098947 (5), A098948 (7), A098949 (9).
%K base,easy,nonn
%O 1,2
%A _Eric Angelini_, Oct 21 2004
%E a(50)=790 inserted by _Georg Fischer_, Jun 26 2021
|
