A367340 - OEIS

%I #26 Feb 07 2024 13:21:43

%S 11,12,22,23,24,33,34,35,36,44,45,46,47,48,55,56,57,58,59,61,66,67,68,

%T 69,71,72,73,77,78,79,81,82,83,84,85,88,89,91,92,93,94,95,96,97,99,

%U 100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118

%N List of distinct (positive) numbers appearing in A367338.

%C This is the list of comma-successors.

%H Michael S. Branicky, <a href="/A367340/b367340.txt">Table of n, a(n) for n = 1..10000</a>

%H Eric Angelini, Michael S. Branicky, Giovanni Resta, N. J. A. Sloane, and David W. Wilson, The Comma Sequence: A Simple Sequence With Bizarre Properties, <a href="http://arxiv.org/abs/2401.14346">arXiv:2401.14346</a>, <a href="https://www.youtube.com/watch?v=_EHAdf6izPI">Youtube</a>

%o (Python)

%o def cp(n):

%o     y = int(str(n)[0])

%o     x = (n-y)%10

%o     k = n - y - 10*x

%o     kk = k + 10*x + y-1

%o     return k if k > 0 and int(str(kk)[0]) != y-1 else -1

%o def ok(n): return n > 0 and cp(n) > 0

%o print([k for k in range(1, 119) if ok(k)]) # _Michael S. Branicky_, Dec 18 2023

%Y Cf. A121805, A367338, A367339, A367341.

%K nonn,base

%O 1,1

%A _N. J. A. Sloane_, Nov 15 2023