cp's OEIS Frontend

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

%I A367340 #28 Jan 09 2025 12:33:09
%S A367340 11,12,22,23,24,33,34,35,36,44,45,46,47,48,55,56,57,58,59,61,66,67,68,
%T A367340 69,71,72,73,77,78,79,81,82,83,84,85,88,89,91,92,93,94,95,96,97,99,
%U A367340 100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118
%N A367340 List of distinct (positive) numbers appearing in A367338.
%C A367340 This is the list of comma-successors.
%H A367340 Michael S. Branicky, <a href="/A367340/b367340.txt">Table of n, a(n) for n = 1..10000</a>
%H A367340 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>, Fibonacci Quarterly 62:3 (2024), 215-232.
%H A367340 Eric Angelini, Michael S. Branicky, Giovanni Resta, N. J. A. Sloane, and David W. Wilson, <a href="/A121805/a121805_1.pdf">The Comma Sequence: A Simple Sequence With Bizarre Properties</a>, Local copy.
%H A367340 N. J. A. Sloane, <a href="https://www.youtube.com/watch?v=_EHAdf6izPI">Eric Angelini's Comma Sequence</a>, Experimental Math Seminar, Rutgers Univ., January 18, 2024, Youtube video; <a href="https://sites.math.rutgers.edu/~zeilberg/expmath/sloane2024.pdf">Slides</a>
%o A367340 (Python)
%o A367340 def cp(n):
%o A367340     y = int(str(n)[0])
%o A367340     x = (n-y)%10
%o A367340     k = n - y - 10*x
%o A367340     kk = k + 10*x + y-1
%o A367340     return k if k > 0 and int(str(kk)[0]) != y-1 else -1
%o A367340 def ok(n): return n > 0 and cp(n) > 0
%o A367340 print([k for k in range(1, 119) if ok(k)]) # _Michael S. Branicky_, Dec 18 2023
%Y A367340 Cf. A121805, A367338, A367339, A367341.
%K A367340 nonn,base
%O A367340 1,1
%A A367340 _N. J. A. Sloane_, Nov 15 2023