|
对于从1到3的d do
m1：=细胞（10^（（d-1）/2））；
m2：=楼层（平方米（10^d-1））；
S[d]：={seq（i^2，i=m1..m2）}；
如果m1：：偶数，则m1：=m1+1 fi；
所以[d]：={seq（i^2，i=m1..m2，2）}；
日期：
对于从2到4的d，执行P2[d]：=选择（isprime，{seq（seq（10^i*s+t，t=So[i]），s=s[d-i]）、i=1..d-1）}）od：
对于从3到5的d，做P3[d]：=选择（isprime，{seq（seq（10^i*s+t，t=P2[i]），s=s[d-i]）、i=2..d-1）}）od：
排序（[seq]（op（P3[d]），d=3..5））；
| 