OFFSET
1,2
COMMENTS
Conjecture: these are the terms of A342043, sorted.
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..10000
MATHEMATICA
A383246Q[k_] := FreeQ[#, 0] && FreeQ[Partition[#, 2, 1], {i_?EvenQ, j_} /; j >= i] & [IntegerDigits[k]];
Select[Range[200], A383246Q]
PROG
(Python)
def ok(n):
s = str(n)
return "0" not in s and all(d not in "02468" or s[i]<d for i, d in enumerate(s, 1) if i < len(s))
print([k for k in range(100) if ok(k)]) # Michael S. Branicky, Apr 28 2025
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Paolo Xausa, Apr 20 2025
STATUS
approved