|
%I #13 Jun 25 2022 11:46:20
%S 2,61,211,271,277,283,601,613,631,643,661,691,829,853,883,2011,2017,
%T 2029,2083,2089,2143,2161,2203,2221,2239,2251,2269,2281,2287,2293,
%U 2341,2347,2371,2383,2389,2467,2551,2683,2719,2731,2749,2767,2791,2803,2851
%N Primes whose reversal + 1 is also prime.
%C 61 is prime and 16+1 = 17 is also a prime.
%H Jens Kruse Andersen, <a href="/A167215/b167215.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Prime[Range[500]], PrimeQ[IntegerReverse[#] + 1] &] (* _Vincenzo Librandi_, Feb 25 2020 *)
%o (Magma) [p: p in PrimesUpTo(3000) | IsPrime((Seqint(Reverse(Intseq(p)))) + 1)]; // _Vincenzo Librandi_, Feb 25 2020
%Y Cf. A007500.
%K base,nonn
%O 1,1
%A _Claudio Meller_, Oct 30 2009
|
