login
Starting from 1, successively take the smallest "Choix de Bruxelles" with factor 13 which is not already in the sequence.
2

%I #41 May 10 2023 07:27:44

%S 1,13,133,1333,13333,133333,1333333,125641,1256413,12564133,1197241,

%T 117481,9037,90391,9031,90313,903133,90241,902413,9024133,90241333,

%U 6941641,693241,6932413,69324133,6717241,671557,65557,5557,55591,5431,54313,543133,54241

%N Starting from 1, successively take the smallest "Choix de Bruxelles" with factor 13 which is not already in the sequence.

%C At a given term t, the Choix de Bruxelles with factor 13 can choose to multiply any decimal digit substring (not starting 0) of t by 13, or divide by 13 if that substring is divisible by 13.

%C These choices on substrings give various possible next values and here take the smallest not yet in the sequence.

%C The sequence is finite and ends at a(6851) = 7, since the sole next Choix there is multiplication by 13 to 91, but 91 is already in the sequence at the preceding a(6850) = 91.

%H Alon Vinkler, <a href="/A360190/b360190.txt">Table of n, a(n) for n = 0..6851</a>

%H Eric Angelini, Lars Blomberg, Charlie Neder, Remy Sigrist, and N. J. A. Sloane, <a href="http://arxiv.org/abs/1902.01444">"Choix de Bruxelles": A New Operation on Positive Integers</a>, arXiv:1902.01444 [math.NT], Feb 2019; Fib. Quart. 57:3 (2019), 195-200.

%H Alon Vinkler, <a href="/A360190/a360190_2.txt">C# Program</a>

%e Below, square brackets [] represent multiplication by 13 (e.g., [4] = 52); curly brackets {} represent division by 13 (e.g., {26} = 2); digits outside the brackets are not affected by the multiplication or division (e.g., 1[3] = 139 and 1{169} = 113).

%e We begin with 1 and, at each step, we go to the smallest number possible that hasn't yet appeared in the sequence:

%e 1 --> [1] = 13

%e 13 --> [1]3 = 133

%e 133 --> [1]33 = 1333

%e 1333 --> [1]333 = 13333

%e 13333 --> [1]3333 = 133333

%e 133333 --> [1]33333 = 1333333

%e 1333333 --> 1{333333} = 125641

%e ... and so on.

%o (C#) // See Links

%Y Cf. A358708 (steps by factor 2), A323286 (Choix with factor 2).

%K nonn,base,fini,full

%O 0,2

%A _Alon Vinkler_, Jan 29 2023