|
%I #21 Dec 28 2019 07:47:01
%S 3,5,11,101,191,10301,12821,13931,16061,16361,19991,72227,73037,76367,
%T 77477,78887,79397,79697,79997,93239,94349,94649,94949,97379,1003001,
%U 1055501,1129211,1134311,1183811,1186811,1208021,1221221,1262621
%N Palindromic primes p such that p+2 is also a prime: members of A083840 which are the smaller member of a twin prime pair.
%H Amiram Eldar, <a href="/A083841/b083841.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..176 from Vincenzo Librandi)
%t Do[f=(Prime[k] - 2); If[PrimeQ[f] && FromDigits[Reverse[IntegerDigits[f]]]==f, Print[f]], {k, 1, 1000000}] (* _Vincenzo Librandi_, Jan 09 2018 *)
%t Select[Partition[Prime[Range[100000]],2,1],#[[2]]-#[[1]]==2 && PalindromeQ[ #[[1]]]&][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Mar 30 2018 *)
%Y Cf. A083840, A083842.
%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
|
