下一个回文符号[n]：=Block[｛l=Floor[Log[10，n]+1]，idn=IntegerDigits[n]}，If[并集[idn]=｛9｝，Return[n+2]，If[l<2，Return[n+1]，If[FromDigits[Reverse[Take[idn，Ceiling[l/2]]]FromDigits[Take[idn，-Siling[l/2]]]，FromDigits[Join[Take[idn，Ceiling[l/2]]，Reverse[Take[idn，Floor[l/2]]]，idfhn=FromDigits[Take[idn，Ceiling[l/2]]]+1；idp=FromDigits[Join[IntegerDigits[idfhn]，Drop[Reverse[Integer Digits[idfhn]]，Mod[l，2]]]]]；
p=0；Do[p=下一个回文[p]；While[！PrimeQ[p]，p=下一个回文[p]]；q=整数位数[PrimePi[p]]；如果[Reverse[q]==q，打印[{p，FromDigits[q]}]]，{n，10^4}](*罗伯特·威尔逊v2005年2月3日*）
ParallelDo[如果[PalindromeQ@i&&PalindromeQ@Prime@i，打印@i]，{i，6*10^8}](*米克·海德马2024年5月24日*）
