OFFSET
1,2
MATHEMATICA
Prepend[ Table[ FromDigits[ Flatten[ IntegerDigits[ Transpose[ FactorInteger[n]] [[1]], 2]]], {n, 2, 50} ], 1]
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Robert G. Wilson v, Nov 01 2001
STATUS
approved