login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Working in base 2, replace n with the concatenation of its prime factors (without repetition).
0

%I #4 Mar 31 2017 22:06:48

%S 1,10,11,10,101,1011,111,10,11,10101,1011,1011,1101,10111,11101,10,

%T 10001,1011,10011,10101,11111,101011,10111,1011,101,101101,11,10111,

%U 11101,1011101,11111,10,111011,1010001,101111,1011,100101,1010011

%N Working in base 2, replace n with the concatenation of its prime factors (without repetition).

%t Prepend[ Table[ FromDigits[ Flatten[ IntegerDigits[ Transpose[ FactorInteger[n]] [[1]], 2]]], {n, 2, 50} ], 1]

%Y Cf. A064841.

%K base,easy,nonn

%O 1,2

%A _Robert G. Wilson v_, Nov 01 2001