RE: Binary System Problem

*To*: mathgroup at smc.vnet.net*Subject*: [mg18654] RE: [mg18621] Binary System Problem*From*: "Ersek, Ted R" <ErsekTR at navair.navy.mil>*Date*: Thu, 15 Jul 1999 01:45:45 -0400*Sender*: owner-wri-mathgroup at wolfram.com

Frieder Schweigert wrote: -------------------------- does anybody know an algorithm or generating system for those binary numbers with a fix amount of '1's, for example (four times '1'): 1111 10111 11011 11101 11110 ------------------ Try this, BaseForm[FromDigits[#, 2], 2] & /@ Permutations[{1, 1, 1, 0, 0}] Regards, Ted Ersek