cp's OEIS Frontend

A382464 Positive integers that contain an even digit d immediately preceded by a digit >= d.

%I A382464 #16 Apr 30 2025 11:09:02
%S A382464 10,20,22,30,32,40,42,44,50,52,54,60,62,64,66,70,72,74,76,80,82,84,86,
%T A382464 88,90,92,94,96,98,100,101,102,103,104,105,106,107,108,109,110,120,
%U A382464 122,130,132,140,142,144,150,152,154,160,162,164,166,170,172,174,176,180
%N A382464 Positive integers that contain an even digit d immediately preceded by a digit >= d.
%C A382464 Conjecture: these are the numbers missing from A382462.
%H A382464 Paolo Xausa, <a href="/A382464/b382464.txt">Table of n, a(n) for n = 1..10000</a>
%t A382464 A382464Q[k_] := MemberQ[Partition[IntegerDigits[k], 2, 1], {i_, j_?EvenQ} /; i >= j];
%t A382464 Select[Range[200], A382464Q]
%o A382464 (Python)
%o A382464 def ok(n):
%o A382464     s = str(n)
%o A382464     return any(d in "02468" and s[i-1]>=d for i, d in enumerate(s) if i > 0)
%o A382464 print([k for k in range(181) if ok(k)]) # _Michael S. Branicky_, Apr 30 2025
%Y A382464 Cf. A382462, A382465 (complement).
%Y A382464 Cf. A347298, A382623, A382937, A383061, A383245, A383247, A383249, A383500.
%K A382464 nonn,base,easy
%O A382464 1,1
%A A382464 _Paolo Xausa_, Mar 28 2025