%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