%I A038585
%S A038585 1,1,11,1,11,11,111,1,11,11,111,11,111,111,1111,1,11,11,111,11,111,111,
%T A038585 1111,11,111,111,1111,111,1111,1111,11111,1,11,11,111,11,111,111,1111,
%U A038585 11,111,111,1111,111,1111,1111,11111,11,111,111,1111,111,1111,1111
%N A038585 Write n in binary, delete 0's.
%t A038585 Array[ dtn[ Cases[ IntegerDigits[ #, 2 ], 1 ] ]&, 70 ]
%Y A038585 Cf. A038573.
%Y A038585 Sequence in context: A095193 A010201 A063431 this_sequence A083768 A040131 
               A013618
%Y A038585 Adjacent sequences: A038582 A038583 A038584 this_sequence A038586 A038587 
               A038588
%K A038585 nonn,easy,nice
%O A038585 1,3
%A A038585 N. J. A. Sloane (njas(AT)research.att.com).
%E A038585 More terms from Erich Friedman (erich.friedman(AT)stetson.edu).