A167460 Primes p such that (p reversed)+6 is also a prime.

5, 7, 11, 13, 19, 31, 37, 53, 59, 71, 73, 79, 101, 103, 109, 113, 127, 131, 139, 149, 151, 157, 163, 179, 191, 193, 197, 199, 307, 317, 331, 337, 353, 367, 373, 383, 503, 509, 521, 523, 541, 547, 557, 569, 571, 593, 701, 727, 743, 751, 761, 773, 1009, 1031, 1033

Offset: 1

Author

Vincenzo Librandi, Nov 04 2009

Keywords

• nonn
• base

Links

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

Programs

Magma

[p: p in PrimesInInterval(2,1050) | IsPrime(q+6) where q is Seqint(Reverse(Intseq(p)))]; // Vincenzo Librandi, Sep 15 2013

Maple

rev:= proc(n) local L,i;
 L:= convert(n,base,10);
 add(L[-i]*10^(i-1),i=1..nops(L))
end proc:
select(t -> isprime(t) and isprime(rev(t)+6), [seq(i,i=3..2000,2)]); # Robert Israel, Dec 11 2023

Mathematica

Select[Prime[Range[2, 700]], PrimeQ[FromDigits[Reverse[IntegerDigits[#]]] + 6]&] (* Vincenzo Librandi, Sep 15 2013 *)

PARI

isok(p) = isprime(p) && isprime(fromdigits(Vecrev(digits(p)))+6); \\ Michel Marcus, Dec 11 2023

Extensions

593 inserted, 769 removed by R. J. Mathar, Nov 08 2009