A167513 Primes p such that (p reversed)-4 is also prime

7, 11, 17, 53, 71, 101, 113, 131, 137, 149, 167, 173, 179, 197, 311, 317, 347, 353, 383, 557, 599, 701, 761, 773, 1031, 1049, 1061, 1109, 1163, 1193, 1223, 1277, 1289, 1307, 1319, 1361, 1373, 1427, 1439, 1553, 1559, 1571, 1583, 1607, 1619, 1709, 1787, 1847

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Example

71->17-4=13; 53->35-4=31; 137->731-4=727.

Mathematica

Select[Prime[Range[2, 300]], PrimeQ[FromDigits[Reverse[IntegerDigits[#]]] - 4]&] (* Vincenzo Librandi, Apr 15 2013 *)

Prog

(Magma) [p: p in PrimesInInterval(5, 2000) | IsPrime(q-4) where q is Seqint(Reverse(Intseq(p)))]; // Bruno Berselli, Apr 15 2013

Crossrefs

Sequence in context: A178386 A097956 A094104 * A260891 A276039 A199327

Adjacent sequences: A167510 A167511 A167512 * A167514 A167515 A167516

Keyword

nonn,base,easy

Author

Vincenzo Librandi, Nov 05 2009

Extensions

Corrected (379 replaced by 383) and extended by R. J. Mathar, Nov 30 2009

Status

approved