A367340 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

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, Youtube

PROG

(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

CROSSREFS

Cf. A121805, A367338, A367339, A367341.