A167496 Primes p such that (p reversed)-10 is also a prime.

17, 31, 71, 107, 167, 191, 311, 347, 383, 701, 719, 743, 761, 773, 797, 911, 929, 941, 947, 953, 977, 983, 1019, 1031, 1049, 1103, 1109, 1181, 1259, 1289, 1301, 1361, 1367, 1433, 1451, 1481, 1493, 1499, 1553, 1571, 1601, 1619, 1637, 1697, 1733, 1811

Offset

1,1

Links

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

Example

17->71-10=61; 31->13-10=3; 71->17-10=7; 941->149-10=139.

Maple

read("transforms") ; isA167496 := proc(n) isprime(n) and isprime(digrev(n)-10) ; end proc: A167496 := proc(n) if n = 1 then 17; else p := nextprime(procname(n-1)) ; while not isA167496(p) do p := nextprime(p) ; end do ; p ; end if; end proc: seq(A167496(n), n=1..80) ; # R. J. Mathar, Nov 08 2009

Mathematica

Select[Prime[Range[5, 300]], PrimeQ[FromDigits[Reverse[IntegerDigits[#]]] - 10]&] (* Harvey P. Dale, Aug 12 2011 *)

Prog

(Magma) [p: p in PrimesInInterval(11, 2000) | IsPrime(q-10) where q is Seqint(Reverse(Intseq(p)))]; // Vincenzo Librandi, Sep 15 2013

Crossrefs

Sequence in context: A256374 A286512 A087166 * A370851 A164041 A085598

Adjacent sequences: A167493 A167494 A167495 * A167497 A167498 A167499

Keyword

nonn,base

Author

Vincenzo Librandi, Nov 05 2009

Status

approved