%I A065016
%S A065016 1,10,11,10,101,1011,111,10,11,10101,1011,1011,1101,10111,11101,10,
%T A065016 10001,1011,10011,10101,11111,101011,10111,1011,101,101101,11,10111,
%U A065016 11101,1011101,11111,10,111011,1010001,101111,1011,100101,1010011
%N A065016 Working in base 2, replace n by the concatenation of its prime factors 
               (without repetition).
%t A065016 Prepend[ Table[ FromDigits[ Flatten[ IntegerDigits[ Transpose[ FactorInteger[n]] 
               [[1]], 2]]], {n, 2, 50} ], 1]
%Y A065016 Cf. A064841.
%Y A065016 Sequence in context: A004053 A077812 A004288 this_sequence A087381 A136400 
               A121266
%Y A065016 Adjacent sequences: A065013 A065014 A065015 this_sequence A065017 A065018 
               A065019
%K A065016 base,easy,nonn
%O A065016 1,2
%A A065016 Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 01 2001