%I #5 Sep 08 2022 08:46:08
%S 5,23,29,41,43,47,61,67,211,227,229,239,241,251,263,277,281,283,293,
%T 401,419,431,433,449,457,467,479,491,499,601,613,647,653,659,661,673,
%U 677,683,691,2003,2029,2053,2111,2113,2129,2137,2141,2161,2203,2207,2213,2239
%N Primes p such that (p reversed)-3 is also a prime.
%H Vincenzo Librandi, <a href="/A243458/b243458.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[2, 3000]], PrimeQ[FromDigits[Reverse[IntegerDigits[#]]] - 3]&]
%o (Magma) [p: p in PrimesInInterval(2, 3000) | IsPrime(q-3) where q is Seqint(Reverse(Intseq(p)))];
%Y Cf. similar sequences listed in A243457.
%K nonn,base
%O 1,1
%A _Vincenzo Librandi_, Jun 05 2014
|