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

1, 10, 11, 10, 101, 1011, 111, 10, 11, 10101, 1011, 1011, 1101, 10111, 11101, 10, 10001, 1011, 10011, 10101, 11111, 101011, 10111, 1011, 101, 101101, 11, 10111, 11101, 1011101, 11111, 10, 111011, 1010001, 101111, 1011, 100101, 1010011

Offset: 1

Author

Robert G. Wilson v, Nov 01 2001

Keywords

• base
• easy
• nonn

Crossrefs

Cf. A064841.

Programs

Mathematica

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