cp's OEIS Frontend

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

%I A167460 #14 Dec 11 2023 14:16:59
%S A167460 5,7,11,13,19,31,37,53,59,71,73,79,101,103,109,113,127,131,139,149,
%T A167460 151,157,163,179,191,193,197,199,307,317,331,337,353,367,373,383,503,
%U A167460 509,521,523,541,547,557,569,571,593,701,727,743,751,761,773,1009,1031,1033
%N A167460 Primes p such that (p reversed)+6 is also a prime.
%H A167460 Vincenzo Librandi, <a href="/A167460/b167460.txt">Table of n, a(n) for n = 1..1000</a>
%p A167460 rev:= proc(n) local L,i;
%p A167460  L:= convert(n,base,10);
%p A167460  add(L[-i]*10^(i-1),i=1..nops(L))
%p A167460 end proc:
%p A167460 select(t -> isprime(t) and isprime(rev(t)+6), [seq(i,i=3..2000,2)]); # _Robert Israel_, Dec 11 2023
%t A167460 Select[Prime[Range[2, 700]], PrimeQ[FromDigits[Reverse[IntegerDigits[#]]] + 6]&] (* _Vincenzo Librandi_, Sep 15 2013 *)
%o A167460 (Magma) [p: p in PrimesInInterval(2,1050) | IsPrime(q+6) where q is Seqint(Reverse(Intseq(p)))]; // _Vincenzo Librandi_, Sep 15 2013
%o A167460 (PARI) isok(p) = isprime(p) && isprime(fromdigits(Vecrev(digits(p)))+6); \\ _Michel Marcus_, Dec 11 2023
%K A167460 nonn,base
%O A167460 1,1
%A A167460 _Vincenzo Librandi_, Nov 04 2009
%E A167460 593 inserted, 769 removed by _R. J. Mathar_, Nov 08 2009