A050138 - OEIS

%I #26 Oct 15 2019 11:52:26

%S 2,6,3,1,15,7,21,10,5,30,33,16,8,4,45,22,11,54,27,13,63,31,69,34,17,

%T 78,39,19,9,90,93,46,23,102,51,25,12,114,57,28,14,126,129,64,32,138,

%U 141,70,35,150,75,37,18,162,81,40,20,174,87,43

%N a(1)=2, a(2)=6.  For n >= 2, a(n) = floor(a(n-1)/2) if this is not among 0,a(1),...,a(n-1); otherwise a(n) = 3*n.

%C Does this sequence contain every positive integer exactly once?

%C Inverse: 4, 1, 3, 14, 9, 2, 6, 13, 29, 8, 17, 37, 20, 41, 5, 12, 25, 53, ..., . - _Robert G. Wilson v_, Apr 09 2018

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

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

%p for n from 3 to 100 do

%p   t:= floor(A[n-1]/2);

%p   if member(t, S) then t:= 3*n fi;

%p   A[n]:= t;

%p   S:= S union {t};

%p od:

%p seq(A[n],n=1..100); # _Robert Israel_, Apr 09 2018

%t f[s_] := Block[{b = Floor[s[[-1]]/2], l = Length@ s}, Append[s, If[MemberQ[s, b], 3l, b]]]; s = {0, 2, 6}; Nest[f, s, 57] (* _Robert G. Wilson v_, Apr 09 2018 *)

%Y Cf. A050000, A050128, A050135, A050136, A050136, A050138.

%K nonn,look

%O 1,1

%A _Clark Kimberling_

%E Name corrected by _Robert Israel_, Apr 09 2018