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 A262882 #11 Oct 05 2015 04:51:52 %S A262882 0,1,2,3,3,5,6,7,7,7,7,11,11,13,14,15,15,15,15,15,15,15,15,23,23,23, %T A262882 23,27,27,29,30,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,47,47, %U A262882 47,47,47,47,47,47,55,55,55,55,59,59,61,62,63,63,63,63,63 %N A262882 Right diagonal of A262881. %C A262882 It appears that the sequence of unique terms is A089633, and that their run lengths are 1, 1, 1, 2, 1, 1, 4, 2, 1, 1, 8, ...: A155038. %t A262882 Last /@ Table[SortBy[Range@ k, And[Total@ IntegerDigits[#, 2], k] &], {k, 67}] (* _Michael De Vlieger_, Oct 04 2015 *) %o A262882 (PARI) cmph(i, j) = if (hammingweight(i) != hammingweight(j), hammingweight(i) - hammingweight(j), i - j); %o A262882 row(n) = my(v = vector(n+1, k, k-1)); vecsort(v, cmph); %o A262882 lista(nn) = {for (n=0, nn, my(r = srow(n)); print1(r[#r], ", "););} %Y A262882 Cf. A089633, A155038, A262881. %K A262882 nonn,base %O A262882 0,3 %A A262882 _Michel Marcus_, Oct 04 2015