This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A244392 #29 Sep 08 2022 08:46:08 %S A244392 2,3,11,13,17,23,29,31,41,43,47,53,61,71,83,101,103,107,113,127,131, %T A244392 137,211,223,227,233,241,311,313,331,401,421,431,433,443,503,521,523, %U A244392 541,601,613,631,641,643,701,811,821,1013,1021,1031,1033,1051,1061,1063 %N A244392 Primes p such that p + (p reversed) is a palindrome. %C A244392 Palindrome is also a prime for n = 241, 443, 613, 641, 811, 20011, 20047, 20051, 20101, 20161, ... . Example: 613+316 = 929, which is prime. [_Bruno Berselli_, Jul 05 2014] %C A244392 Subsequence of primes within A015976. - _Michel Marcus_, Jul 05 2014 %H A244392 Chai Wah Wu, <a href="/A244392/b244392.txt">Table of n, a(n) for n = 1..10000</a> %e A244392 13 is in the sequence because 13+31 = 44 is a palindrome. %e A244392 1103 is in the sequence because 1103+3011 = 4114 is a palindrome. %t A244392 selQ[p_] := (id = IntegerDigits[p]; id2 = IntegerDigits[p + FromDigits[Reverse[id]]]; id2 == Reverse[id2]); Select[Array[Prime, 200], selQ] (* _Jean-François Alcover_, Jul 05 2014 *) %t A244392 Select[Prime[Range[200]],PalindromeQ[#+IntegerReverse[#]]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Nov 11 2020 *) %o A244392 (Magma) [p: p in PrimesUpTo(1200) | q eq Reverse(q) where q is Intseq(p+Seqint(Reverse(Intseq(p))))]; // _Bruno Berselli_, Jul 05 2014 %Y A244392 Cf. A007500, A015976, A061783. %K A244392 nonn,base %O A244392 1,1 %A A244392 _Vincenzo Librandi_, Jul 02 2014