王老师你找找规律:
- Select[Subsets[Range[2,25],{2}],Union@IntegerDigits[25*(10^27+10^#[[1]]+10^#[[2]]+1)^2]=={0,2,5}&]
复制代码
{{2,5},{2,6},{2,7},{2,8},{2,9},{2,10},{2,11},{2,12},{2,13},{2,16},{2,17},{2,18},{2,19},{2,20},{2,21},{2,22},{2,23},{2,24},{3,7},{3,8},{3,9},{3,10},{3,11},{3,12},{3,13},{3,16},{3,17},{3,18},{3,19},{3,20},{3,21},{3,22},{3,23},{3,25},{4,6},{4,9},{4,10},{4,11},{4,12},{4,13},{4,15},{4,17},{4,18},{4,19},{4,20},{4,21},{4,22},{4,24},{4,25},{5,7},{5,8},{5,11},{5,12},{5,13},{5,15},{5,17},{5,18},{5,19},{5,20},{5,21},{5,23},{5,24},{5,25},{6,8},{6,9},{6,10},{6,13},{6,15},{6,16},{6,18},{6,19},{6,20},{6,22},{6,23},{6,24},{6,25},{7,9},{7,10},{7,11},{7,12},{7,15},{7,16},{7,18},{7,19},{7,21},{7,22},{7,23},{7,24},{7,25},{8,10},{8,11},{8,12},{8,13},{8,17},{8,20},{8,21},{8,22},{8,23},{8,24},{8,25},{9,11},{9,12},{9,13},{9,15},{9,16},{9,19},{9,20},{9,21},{9,22},{9,23},{9,24},{9,25},{10,12},{10,13},{10,15},{10,16},{10,18},{10,21},{10,22},{10,23},{10,24},{10,25},{11,13},{11,15},{11,17},{11,18},{11,20},{11,23},{11,24},{11,25},{12,16},{12,17},{12,18},{12,19},{12,21},{12,22},{12,25},{13,15},{13,16},{13,17},{13,18},{13,19},{13,21},{13,22},{13,23},{13,24},{15,17},{15,18},{15,19},{15,20},{15,22},{15,23},{15,24},{15,25},{16,18},{16,19},{16,20},{16,21},{16,23},{16,24},{16,25},{17,19},{17,20},{17,21},{17,23},{17,24},{17,25},{18,20},{18,21},{18,22},{18,24},{18,25},{19,21},{19,22},{19,24},{19,25},{20,22},{20,23},{20,25},{21,23},{21,25},{22,24}} |