编写一个程序，找出大于等于a，并且小于等于b的所有素数回文数

来源：百度知道 编辑：UC知道 时间：2024/09/21 08:24:13

Mathematica程序
For[n = 1000, n < 10^4, n++,
If[PrimeQ[n] && PrimeQ[FromDigits[
Reverse[IntegerDigits[n]]]], Print[n]]](*1000~10000的回文素数*)

该程序认为的回文素数是9967,7699这样的素数对.即一个素数反过来念,还是素数.

刚刚查明了回文素数的定义,程序如下
For[n = 1000, n < 10^5, n++,
If[PrimeQ[n] && IntegerDigits[n] ==
Reverse[IntegerDigits[n]], Print[n]]](*1000~100000的回文素数*)
运行结果最大是98689