login
a(n) is the least k satisfying A050128(k) = n.
2

%I #15 Feb 21 2020 10:58:05

%S 1,3,9,2,6,15,8,4,20,5,12,27,14,7,32,17,37,19,40,10,22,11,24,51,26,13,

%T 56,29,61,31,64,16,34,71,36,18,76,39,81,163,42,21,44,91,46,23,48,99,

%U 50,25,104,53,109,55,112,28,58,119,60,30,124,63

%N a(n) is the least k satisfying A050128(k) = n.

%C Conjecture: for n > 1, a(n) is always one of n/2, n+1, 2*n+2, 2*n+3, 4*n+3 or 4*n+5. - _Robert Israel_, Feb 18 2020

%H Robert Israel, <a href="/A050129/b050129.txt">Table of n, a(n) for n = 1..10000</a>

%p N:= 100: # to get a(1)..a(N)

%p A[1]:= 1: S:= {0,1}: count:= 1:

%p v:= 1:

%p for n from 2 while count < N do

%p v:= floor(v/2);

%p if member(v, S) then v:= 2*n fi;

%p if v <= N then count:= count+1; A[v]:= n fi;

%p S:= S union {v};

%p od:

%p seq(A[i],i=1..N); # _Robert Israel_, Feb 09 2020

%Y Cf. A050128.

%K nonn

%O 1,2

%A _Clark Kimberling_

%E Name changed by _Robert Israel_, Feb 09 2020