A167496 - OEIS

%I #13 Sep 08 2022 08:45:48

%S 17,31,71,107,167,191,311,347,383,701,719,743,761,773,797,911,929,941,

%T 947,953,977,983,1019,1031,1049,1103,1109,1181,1259,1289,1301,1361,

%U 1367,1433,1451,1481,1493,1499,1553,1571,1601,1619,1637,1697,1733,1811

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

%H Vincenzo Librandi, <a href="/A167496/b167496.txt">Table of n, a(n) for n = 1..1000</a>

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

%p 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

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

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

%K nonn,base

%O 1,1

%A _Vincenzo Librandi_, Nov 05 2009