所谓回文质数对是指两个质数，它们顺着读与倒着读分别都是相同的，除了中间的数字其它都相同，而中间的数字又是相邻的整数的数对，比如181和191，30103和30203都是回文质数对。
试编程打印出所有五位数的回文质数对。

s:=seq~(seq~([seq(10001*i+1010*j+100*k,i=1..9)],j=0..9),k=0..9):
select(isprime,s);
结果：
[10301, 10501, 10601, 11311, 11411, 12421, 12721, 12821, 13331, 13831, 13931, 14341, 14741, 15451, 15551, 16061, 16361, 16561, 16661, 17471, 17971, 18181, 18481, 19391, 19891, 19991, 30103, 30203, 30403, 30703, 30803, 31013, 31513, 32323, 32423, 33533, 34543, 34843, 35053, 35153, 35353, 35753, 36263, 36563, 37273, 37573, 38083, 38183, 38783, 39293, 70207, 70507, 70607, 71317, 71917, 72227, 72727, 73037, 73237, 73637, 74047, 74747, 75557, 76367, 76667, 77377, 77477, 77977, 78487, 78787, 78887, 79397, 79697, 79997, 90709, 91019, 93139, 93239, 93739, 94049, 94349, 94649, 94849, 94949, 95959, 96269, 96469, 96769, 97379, 97579, 97879, 98389, 98689]