cp's OEIS Frontend

A382937 Positive integers that contain an odd digit d immediately preceded by a digit <= d.

%I A382937 #15 Apr 30 2025 10:12:02
%S A382937 11,13,15,17,19,23,25,27,29,33,35,37,39,45,47,49,55,57,59,67,69,77,79,
%T A382937 89,99,101,103,105,107,109,110,111,112,113,114,115,116,117,118,119,
%U A382937 123,125,127,129,130,131,132,133,134,135,136,137,138,139,145,147,149,150
%N A382937 Positive integers that contain an odd digit d immediately preceded by a digit <= d.
%H A382937 Paolo Xausa, <a href="/A382937/b382937.txt">Table of n, a(n) for n = 1..10000</a>
%t A382937 A382937Q[k_] := MemberQ[Partition[IntegerDigits[k], 2, 1], {i_, j_?OddQ} /; i <= j];
%t A382937 Select[Range[200], A382937Q]
%o A382937 (Python)
%o A382937 def ok(n):
%o A382937     s = str(n)
%o A382937     return any(s[i+1] >= s[i] for i in range(len(s)-1) if s[i+1] in "13579")
%o A382937 print([k for k in range(1, 151) if ok(k)]) # _Michael S. Branicky_, Apr 14 2025
%Y A382937 Cf. A382938 (complement).
%Y A382937 Cf. A347298, A382464, A382623, A383061, A383245, A383247, A383249, A383500.
%K A382937 nonn,base,easy
%O A382937 1,1
%A A382937 _Paolo Xausa_, Apr 14 2025