cp's OEIS Frontend

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.

A262882 Right diagonal of A262881.

This page as a plain text file.
%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