digrev:=程序（n）局部L，i；
五十： =换算（n，基数，10）；
加（L[-i]*10^（i-1），i=1..nops（L））
结束进程：
dcat：=进程（x，y）10^（1+ilog10（y））*x+y结束进程：
R： =23:计数：=1:lastpp:=3:
对于从2开始的d，而计数<100 do
对于[1,3,7,9]中的i，当计数<100 do时
当计数<100 do时，对于从i*10^（d-1）+1到（i+1
当计数<100 do时，j从0到9
x： =m*10^（d+1）+j*10^d+数字（m）；
如果是素数（x），则
y： =dcat（lastpp，x）；
lastpp:=x；
如果是素数（y），则R:=R，y；计数：=计数+1 fi
fi（菲涅耳）
od od od od日期：
