This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A286547 #6 May 18 2017 21:49:08
%S A286547 1,1,2,3,4,2,5,5,6,7,8,8,9,9,10,11,12,13,14,14,15,15,7,4,16,16,17,18,
%T A286547 11,17,19,19,20,21,22,22,23,23,24,25,26,26,27,6,28,27,29,29,30,30,31,
%U A286547 32,33,31,34,34,18,35,36,36,37,37,38,39,40,41,42,42,43,43,44,45,46,46,47,48,49,47,50,50,51,51,52,12,25,52,53,53,54,24,55,55,56,56,13
%N A286547 Restricted growth sequence of A286546 (A006068(n) - n).
%H A286547 Antti Karttunen, <a href="/A286547/b286547.txt">Table of n, a(n) for n = 0..65535</a>
%o A286547 (PARI)
%o A286547 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 A286547 write_to_bfile(start_offset,vec,bfilename) = { for(n=1, length(vec), write(bfilename, (n+start_offset)-1, " ", vec[n])); }
%o A286547 A006068(n)= { my(s=1, ns); while(1, ns = n >> s; if(0==ns, break()); n = bitxor(n, ns); s <<= 1; ); return (n); } \\ Essentially _Joerg Arndt_'s Jul 19 2012 code.
%o A286547 A286546(n) = (A006068(n)-n);
%o A286547 write_to_bfile(0,rgs_transform(vector(16384,n,A286546(n-1))),"b286547.txt");
%Y A286547 Cf. A006068, A286546, A286549.
%K A286547 nonn
%O A286547 0,3
%A A286547 _Antti Karttunen_, May 18 2017