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,2

Links

Table of n, a(n) for n=1..38.

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

Adjacent sequences: A065013 A065014 A065015 * A065017 A065018 A065019

Keyword

base,easy,nonn

Author

Robert G. Wilson v, Nov 01 2001

Status

approved