|
%I #5 Sep 08 2022 08:46:08
%S 11,23,29,41,61,67,83,89,211,223,257,263,269,271,281,283,293,601,613,
%T 619,631,641,643,653,659,661,673,811,827,829,839,853,863,877,881,883,
%U 2011,2027,2039,2063,2083,2087,2111,2129,2131,2207,2221,2243,2269,2311,2333
%N Primes p such that (p reversed)-9 is also a prime.
%H Vincenzo Librandi, <a href="/A243461/b243461.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[5, 7000]], PrimeQ[FromDigits[Reverse[IntegerDigits[#]]] - 9] &]
%o (Magma) [p: p in PrimesInInterval(8, 7000) | IsPrime(q-9) 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
|
