OFFSET
1,1
COMMENTS
Conjecture: This is precisely the list of numbers missing from A342042.
The conjecture is correct, see A342042 for details. - Sebastian Karlsson, Oct 02 2021
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..10000
MATHEMATICA
A347298Q[k_] := Count[Partition[IntegerDigits[k], 2, 1], {i_, j_} /; EvenQ[i] && j <= i] > 0;
Select[Range[300], A347298Q] (* Paolo Xausa, Nov 28 2024 *)
PROG
(Python)
def ok(n):
s = str(n)
return any(s[i] in "2468" and s[i+1] <= s[i] for i in range(len(s)-1))
print([k for k in range(216) if ok(k)]) # Michael S. Branicky, Nov 28 2024
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Aug 26 2021
STATUS
approved