A367340 List of distinct (positive) numbers appearing in A367338.

11, 12, 22, 23, 24, 33, 34, 35, 36, 44, 45, 46, 47, 48, 55, 56, 57, 58, 59, 61, 66, 67, 68, 69, 71, 72, 73, 77, 78, 79, 81, 82, 83, 84, 85, 88, 89, 91, 92, 93, 94, 95, 96, 97, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118

Offset: 1

Author

N. J. A. Sloane, Nov 15 2023

Keywords

• nonn
• base

Comments

This is the list of comma-successors.

Links

• Michael S. Branicky, Table of n, a(n) for n = 1..10000
• Eric Angelini, Michael S. Branicky, Giovanni Resta, N. J. A. Sloane, and David W. Wilson, The Comma Sequence: A Simple Sequence With Bizarre Properties, arXiv:2401.14346, Fibonacci Quarterly 62:3 (2024), 215-232.
• Eric Angelini, Michael S. Branicky, Giovanni Resta, N. J. A. Sloane, and David W. Wilson, The Comma Sequence: A Simple Sequence With Bizarre Properties, Local copy.
• N. J. A. Sloane, Eric Angelini's Comma Sequence, Experimental Math Seminar, Rutgers Univ., January 18, 2024, Youtube video; Slides

Crossrefs

Cf. A121805, A367338, A367339, A367341.

Programs

Python

def cp(n):
    y = int(str(n)[0])
    x = (n-y)%10
    k = n - y - 10*x
    kk = k + 10*x + y-1
    return k if k > 0 and int(str(kk)[0]) != y-1 else -1
def ok(n): return n > 0 and cp(n) > 0
print([k for k in range(1, 119) if ok(k)]) # Michael S. Branicky, Dec 18 2023