OFFSET
2,1
MATHEMATICA
Do[ p = NextPrime[10^(n - 1) ]; Do[ p1 = FromDigits[ Reverse[IntegerDigits[p]]]; If[PrimeQ[p1] && p1 < p, Print[{n, p}]; Break[]]; p = NextPrime[p], {10^9}], {n, 2, 16}];
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Nov 20 2008
EXTENSIONS
a(17)-a(21) from Chai Wah Wu, Sep 11 2019
STATUS
approved