cp's OEIS Frontend

A225985 List the positive numbers, remove even digits (including zeros) from each term; sequence = remaining terms.

%I A225985 #26 Aug 06 2022 08:23:12
%S A225985 1,3,5,7,9,1,11,1,13,1,15,1,17,1,19,1,3,5,7,9,3,31,3,33,3,35,3,37,3,
%T A225985 39,1,3,5,7,9,5,51,5,53,5,55,5,57,5,59,1,3,5,7,9,7,71,7,73,7,75,7,77,
%U A225985 7,79,1,3,5,7,9,9,91,9,93,9,95,9,97,9,99,1,11,1,13
%N A225985 List the positive numbers, remove even digits (including zeros) from each term; sequence = remaining terms.
%H A225985 Paul Tek, <a href="/A225985/b225985.txt">Table of n, a(n) for n = 1..10000</a>
%F A225985 a(A226091(n)) = A014261(n). - _Reinhard Zumkeller_, May 26 2013
%e A225985 The natural numbers with at least one odd digit in their decimal representation are: 1, 3, 5, 7, 9, 10, 11, 12, 13, ...
%e A225985 By excluding their even digits, we obtain: 1, 3, 5, 7, 9, 1, 11, 1, 13, ...
%e A225985 Hence: a(1)=1, a(2)=3, a(3)=5, a(4)=7, a(5)=9, a(6)=1, a(7)=11, a(8)=1, a(9)=13, .... [Example corrected by _Paul Tek_, May 24 2013]
%t A225985 FromDigits[DeleteCases[IntegerDigits[#],_?EvenQ]]&/@Range[200]/. (0-> Nothing) (* _Harvey P. Dale_, Apr 04 2017 *)
%o A225985 (Haskell)
%o A225985 a225985 n = a225985_list !! (n-1)
%o A225985 a225985_list = map read $ filter (not . null) $
%o A225985     map (filter (`elem` "13579") . show) [0..] :: [Integer]
%o A225985 -- _Reinhard Zumkeller_, May 26 2013
%o A225985 (Python)
%o A225985 from itertools import count, islice
%o A225985 def agen(): # generator of terms
%o A225985     for n in count(1):
%o A225985         removed  = "".join(d if d in "13579" else "" for d in str(n))
%o A225985         if removed != "": yield int(removed)
%o A225985 print(list(islice(agen(), 80))) # _Michael S. Branicky_, Aug 05 2022
%Y A225985 Cf. A038573.
%Y A225985 Cf. A014261 (duplicates removed), A226091.
%K A225985 nonn,base,look
%O A225985 1,2
%A A225985 _Dave Durgin_, May 22 2013
%E A225985 Definition clarified by _N. J. A. Sloane_, Aug 06 2022 at the suggestion of _Michel Marcus_