|
%I #5 Sep 08 2022 08:46:08
%S 41,47,83,401,419,431,443,449,461,467,479,617,641,647,653,677,683,857,
%T 881,4001,4007,4049,4073,4079,4127,4133,4157,4211,4253,4289,4373,4397,
%U 4421,4457,4463,4583,4643,4703,4751,4787,4793,4799,4817,4871,4919,4967,6029
%N Primes p such that (p reversed)-7 is also a prime.
%H Vincenzo Librandi, <a href="/A243460/b243460.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[4, 7000]], PrimeQ[FromDigits[Reverse[IntegerDigits[#]]] - 7] &]
%o (Magma) [p: p in PrimesInInterval(6, 7000) | IsPrime(q-7) 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
|
