|
%I #15 Dec 28 2019 07:47:27
%S 5,7,151,181,313,10501,13831,19891,31513,32323,34843,35053,37573,
%T 94849,95959,97579,98389,1062601,1163611,1193911,1201021,1212121,
%U 1242421,1250521,1253521,1286821,1362631,1496941,1572751,1580851,1589851
%N Palindromic primes p such that p-2 is also a prime: members of A083840 which are the larger member of a twin prime pair.
%H Amiram Eldar, <a href="/A083842/b083842.txt">Table of n, a(n) for n = 1..10000</a>
%t palQ[n_]:=Module[{idn=IntegerDigits[n]},idn==Reverse[idn]]
%t Select[Transpose[Select[Partition[Prime[Range[500000]],2,1],Last[#]-First[#]==2&]][[2]],palQ] (* _Harvey P. Dale_, Feb 25 2011 *)
%Y Cf. A083840, A083841.
%K base,nonn
%O 1,1
%A _Amarnath Murthy_ and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 09 2003
%E Corrected and extended by _Ray Chandler_, May 23 2003
|
