- sol=Select[Tuples[Range@4,{4}],AllTrue[Total/@Partition[#,2,1,1],PrimeQ]&]
复制代码
{{1,1,1,1},{1,1,1,2},{1,1,1,4},{1,1,2,1},{1,1,4,1},{1,2,1,1},{1,2,1,2},{1,2,1,4},{1,2,3,2},{1,2,3,4},{1,4,1,1},{1,4,1,2},{1,4,1,4},{1,4,3,2},{1,4,3,4},{2,1,1,1},{2,1,2,1},{2,1,2,3},{2,1,4,1},{2,1,4,3},{2,3,2,1},{2,3,2,3},{2,3,4,1},{2,3,4,3},{3,2,1,2},{3,2,1,4},{3,2,3,2},{3,2,3,4},{3,4,1,2},{3,4,1,4},{3,4,3,2},{3,4,3,4},{4,1,1,1},{4,1,2,1},{4,1,2,3},{4,1,4,1},{4,1,4,3},{4,3,2,1},{4,3,2,3},{4,3,4,1},{4,3,4,3}}
共41种方法 |