cp's OEIS Frontend

A286549 Restricted growth sequence of A286548 (A003188(n) - n).

%I A286549 #5 May 18 2017 21:49:25
%S A286549 1,1,2,3,4,4,3,5,6,6,7,8,9,9,10,11,12,12,13,14,15,15,14,7,16,16,5,10,
%T A286549 17,17,18,19,20,20,21,22,23,23,22,24,25,25,26,27,28,28,29,13,30,30,11,
%U A286549 31,32,32,31,33,34,34,35,36,37,37,38,39,40,40,41,42,43,43,42,44,45,45,46,47,48,48,49,50,51,51,52,53,54,54,53,46,55,55,44,49,56,56,27
%N A286549 Restricted growth sequence of A286548 (A003188(n) - n).
%H A286549 Antti Karttunen, <a href="/A286549/b286549.txt">Table of n, a(n) for n = 0..65535</a>
%o A286549 (PARI)
%o A286549 rgs_transform(invec) = { my(occurrences = Map(), outvec = vector(length(invec)), u=1); for(i=1, length(invec), if(mapisdefined(occurrences,invec[i]), my(pp = mapget(occurrences, invec[i])); outvec[i] = outvec[pp] , mapput(occurrences,invec[i],i); outvec[i] = u; u++ )); outvec; };
%o A286549 write_to_bfile(start_offset,vec,bfilename) = { for(n=1, length(vec), write(bfilename, (n+start_offset)-1, " ", vec[n])); }
%o A286549 A003188(n) = bitxor(n, n>>1);
%o A286549 A286548(n) = (A003188(n)-n);
%o A286549 write_to_bfile(0,rgs_transform(vector(65536,n,A286548(n-1))),"b286549.txt");
%Y A286549 Cf. A003188, A286547, A286548.
%K A286549 nonn
%O A286549 0,3
%A A286549 _Antti Karttunen_, May 18 2017