A377918 -id:A377918 - cp's OEIS frontend

A342042 When a digit d in the digit-stream of this sequence is even, the next digit is > d.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 30, 13, 14, 50, 15, 16, 70, 17, 18, 90, 19, 23, 24, 51, 25, 26, 71, 27, 28, 91, 29, 31, 32, 33, 34, 52, 35, 36, 72, 37, 38, 92, 39, 45, 46, 73, 47, 48, 93, 49, 53, 54, 55, 56, 74, 57, 58, 94, 59, 67, 68, 95, 69, 75, 76, 77, 78, 96, 79, 89, 97, 98, 99, 101

Offset: 1

Eric Angelini, Feb 26 2021

The definition refers to the digit-stream in the sequence (ignoring the commas), which starts 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 0, 1, 1, 1, 2, 3, 0, ...
The sequence is always extended with the smallest nonnegative integer not yet present that doesn't lead to a contradiction.
Theorem: The sequence contains every nonnegative integer except those in A347298.
Proved in September 2021. See S.K. link for a new, more detailed proof. - Sebastian Karlsson, Nov 28 2024. See N.J.A.S. link for an alternative, shorter, proof. - N. J. A. Sloane, Nov 29 2024
Comments added by N. J. A. Sloane, Dec 04 2024 (Start):
Let S = present sequence, P = A377912. By definition the terms in P appear in their natural order. There are A377917(k) terms in P of decimal length k >= 1. They form a consecutive block in P, starting at P(i1) and ending at P(i2), where i1 = A377918(k), i2 = A377918(k+1)-1.
We know S contains exactly the same terms as P, but in a different order.
Conjecture 1. For k >= 1, the terms of length k in S form a consecutive block with the same starting and ending points as in P. In both P and S, the block begins with 10101... (1's and 0's alternate, length is k) and end with 99...9 (k 9's).
Conjecture 2. We know every number appears in S. Suppose x = S(m) = 899...9 (with k-1 9's). Then x is the last term of length k in S that begins with a digit <= 8. The remaining terms of length k have leading digit 9 and appear in order, ending with 99...9 (k 9's).
(Some k-digit numbers beginning with 9 may appear before x.)
(End)
Comment from N. J. A. Sloane, Dec 01 2024 (Start)
Let c1 = 7.422574840... and c2 = 1.3824387... be the constants defined in A377918. Then assuming Conjecture 1, the index of the last term of length k in the present sequence is close to (c2*c1^k, 10^k). [Thanks to Sebastian Karlsson for pointing out that Conjecture 1 is required and is as yet unproved.]
  Let x = c2*c1^k, and express k in terms of x.
Then this point has coordinates (x,y) where y = (x/c2)^c3, with c3 = (log 10)/(log c1) = 1.14869... This defines a curve that is a good approximation to the lower envelope of the present sequence.
For example, the fifth meeting point has coordinates (31148, 101010) (see A377918) and the formula here gives (x,y) = (31148, 100003.0039).
(End)
Comment from Sebastian Karlsson, Dec 12 2024: (Start)
Theorem: Let d be in {1, 2, ..., 8}. For every positive integer k, the k-digit number d99...9 appears in the sequence before the k-digit number (d+1)99...9.
A proof can be found in the links. Since all k-digit numbers starting with 9 appears before any (k+1)-digit number, we get that terms of a certain length form a consecutive block. In particular, this proves Conjectures 1 and 2 above.
(End)

N. J. A. Sloane, Table of n, a(n) for n = 1..20000 [Computed using Rémy Sigrist's PARI program. The first 10000 terms were computed by Peter Kagey]
Sebastian Karlsson, Proof of Theorem.
Sebastian Karlsson, Proof of the second Theorem.
Rémy Sigrist, Colored scatterplot of the first 20000 terms (where the color is function of the leading digit of a(n))
Rémy Sigrist, PARI program for A342042
N. J. A. Sloane, A Nasty Surprise in a Sequence and Other OEIS Stories, Experimental Mathematics Seminar, Rutgers University, Oct 10 2024, Youtube video; Slides [Mentions this sequence]
N. J. A. Sloane, An Alternative Proof of the Theorem.

Cf. A342043, A342044, A342045, A342046 and A342047 (variations on the same idea).
See A377913 and A377914 for records.
See also A347298.
Cf. A379901, A379903.

PARI
```
\\ See Links section.
```

def cond(s, minfirst):
    return all(s[i+1] > s[i] for i in range(len(s)-1) if s[i] in "02468")
def aupton(terms):
    alst, seen = [0], {0}
    while len(alst) < terms:
        d = alst[-1]%10
        an = minfirst = (1 - d%2)*(d+1)
        stran = str(an)
        while an in seen or not cond(stran, minfirst):
            an += 1
            stran = str(an)
            if int(stran[0]) < minfirst:
                an = minfirst*10**(len(stran)-1)
        alst.append(an); seen.add(an)
    return alst
print(aupton(77)) # Michael S. Branicky, Sep 07 2021

Edited by N. J. A. Sloane, Nov 24 2024

A377912 Numbers such that every even digit except the last is immediately followed by a strictly larger digit.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117

Offset: 1

N. J. A. Sloane, Nov 27 2024, with thanks to Paolo Xausa for correcting the initial definition

In other words, numbers that do not contain a pair of successive digits i, j where i is even and j <= i.

Paolo Xausa, Table of n, a(n) for n = 1..10000
Sela Fried, Even-up words and their variants, arXiv:2505.14196 [math.CO], 2025.

The complement of A347298. Cf. A342042, A377914, A377917, A377918.

A377912Q[k_] := FreeQ[Partition[IntegerDigits[k], 2, 1], {i_?EvenQ, j_} /; j <= i];
Select[Range[0, 200], A377912Q] (* Paolo Xausa, Mar 17 2025 *)

def ok(n):
    s = str(n)
    return not any(s[i] in "2468" and s[i+1] <= s[i] for i in range(len(s)-1))
print([k for k in range(0, 118) if ok(k)]) # Michael S. Branicky, Nov 28 2024

Added 0 to match A342042, and replaced negative definition by a positive one. - N. J. A. Sloane, Nov 29 2024

A377917 Number of n-digit terms in A377912.

Original entry on oeis.org

10, 66, 489, 3631, 26951, 200045, 1484850, 11021410, 81807240, 607220362, 4507138581, 33454573430, 248319075015, 1843166918425, 13681044394077, 101548575900358, 753751904485831, 5594779921615960, 41527672679871145, 308242258385100002, 2287951231622970075, 16982489246315828049

Offset: 1

Sebastian Karlsson and N. J. A. Sloane, Nov 30 2024

Also number of n-digit terms in A342042.
a(1149) has 1001 digits. - Michael S. Branicky, Nov 30 2024
The terms of A377912 as decimal digit strings are a regular language so can be counted using the transitions in a state machine matching those strings. - Kevin Ryde, Dec 01 2024

			The 66 two-digit terms in A377912 are
  10,11,12,13,14,15,16,17,18,19,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,
  38,39,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,67,68,69,70,71,72,73,74,
  75,76,77,78,79,89,90,91,92,93,94,95,96,97,98,99.
There is an obvious division into 5 blocks of size 10 and blocks of sizes 7, 5, 3, and 1.

Michael S. Branicky, Table of n, a(n) for n = 1..1148
Michael S. Branicky, Python program for A377917
Index entries for linear recurrences with constant coefficients, signature (5,15,20,15,6,1).

Cf. A342042, A377912.

First differences of A377918.

LinearRecurrence[{5, 15, 20, 15, 6, 1}, {10, 66, 489, 3631, 26951, 200045, 1484850}, 25] (* Paolo Xausa, Dec 01 2024 *)

From Kevin Ryde, Dec 01 2024: (Start)
a(n) = 5*a(n-1) + 15*a(n-2) + 20*a(n-3) + 15*a(n-4) + 6*a(n-5) + a(n-6) for n>=8.
G.f.: -1 + x + (1+x)^4 / (1 - 5*x - 15*x^2 - 20*x^3 - 15*x^4 - 6*x^5 - x^6). (End)

a(6) and beyond from Michael S. Branicky, Nov 30 2024

cp's OEIS Frontend

A342042 When a digit d in the digit-stream of this sequence is even, the next digit is > d.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI

Python

Extensions

A377912 Numbers such that every even digit except the last is immediately followed by a strictly larger digit.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Python

Extensions

A377917 Number of n-digit terms in A377912.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

Extensions