OFFSET
1,1
FORMULA
EXAMPLE
The sequence begins:
2, 2;
3, 3;
5, 5;
7, 7;
11, 11;
13, 31;
17, 71;
31, 13;
37, 73;
71, 17;
...
107 has its reversal as 701.
971 has its reversal as 179.
MATHEMATICA
Flatten@ Table[ If[PrimeQ[r = IntegerReverse@ p], {p, r}, {}], {p, Prime@ Range@ 71}] (* Giovanni Resta, Nov 13 2018 *)
PROG
(PARI) forprime(p=1, 353, r=fromdigits(Vecrev(digits(p))); if (isprime(r), print1(p ", " r ", "))) \\ Rémy Sigrist, Nov 16 2018
CROSSREFS
KEYWORD
nonn,base,tabf
AUTHOR
Kritsada Moomuang, Nov 12 2018
STATUS
approved