

A262882


Right diagonal of A262881.


1



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, 23, 27, 27, 29, 30, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 47, 47, 47, 47, 47, 47, 47, 47, 55, 55, 55, 55, 59, 59, 61, 62, 63, 63, 63, 63, 63
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,3


COMMENTS

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.


LINKS

Table of n, a(n) for n=0..67.


MATHEMATICA

Last /@ Table[SortBy[Range@ k, And[Total@ IntegerDigits[#, 2], k] &], {k, 67}] (* Michael De Vlieger, Oct 04 2015 *)


PROG

(PARI) cmph(i, j) = if (hammingweight(i) != hammingweight(j), hammingweight(i)  hammingweight(j), i  j);
row(n) = my(v = vector(n+1, k, k1)); vecsort(v, cmph);
lista(nn) = {for (n=0, nn, my(r = srow(n)); print1(r[#r], ", "); ); }


CROSSREFS

Cf. A089633, A155038, A262881.
Sequence in context: A255563 A115350 A320034 * A187043 A081211 A081213
Adjacent sequences: A262879 A262880 A262881 * A262883 A262884 A262885


KEYWORD

nonn,base


AUTHOR

Michel Marcus, Oct 04 2015


STATUS

approved



