OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
EXAMPLE
17->71+8=79; 53->35+8=43; 107->701+8=709.
MATHEMATICA
Select[Prime[Range[2, 3000]], PrimeQ[FromDigits[Reverse[IntegerDigits[#]]] + 8]&](* Vincenzo Librandi, Sep 15 2013 *)
PROG
(Magma) [p: p in PrimesInInterval(2, 2050) | IsPrime(q+8) where q is Seqint(Reverse(Intseq(p)))]; // Vincenzo Librandi, Sep 15 2013
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vincenzo Librandi, Nov 04 2009
EXTENSIONS
Numbers in the range 1100 to 1600 inserted by R. J. Mathar, Nov 08 2009
STATUS
approved