login
A065016
Working in base 2, replace n with the concatenation of its prime factors (without repetition).
0
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,2
MATHEMATICA
Prepend[ Table[ FromDigits[ Flatten[ IntegerDigits[ Transpose[ FactorInteger[n]] [[1]], 2]]], {n, 2, 50} ], 1]
CROSSREFS
Cf. A064841.
Sequence in context: A004053 A077812 A004288 * A087381 A136400 A334027
KEYWORD
base,easy,nonn
AUTHOR
Robert G. Wilson v, Nov 01 2001
STATUS
approved