OFFSET
1,2
MATHEMATICA
FactorInteger[#][[-1, 1]]&/@Rest[FromDigits/@Tuples[{0, 1}, 6]] (* Harvey P. Dale, Feb 07 2015 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Nov 16 2002
STATUS
approved