lst={};对于[n=1,n<=10000,n++,If[Fold[And,True,CoprimeQ[#,n]&/@(Length/@Split[Integer Digits[n,2]])],打印[n]][发件人 (* Jasper Mulder(Jasper.Mulder(AT)planet.nl),2009年7月15日] *)
选择[Range[2^7],AllTrue[Length/@Split@IntegerDigits[#,2],Function[k,CoprimQ[#,k]]&](*迈克尔·德弗利格2017年11月4日*)