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 A080177 #12 Dec 03 2018 18:56:44 %S A080177 43,73,2141,2251,4253,4363,4583,6701,7211,7321,7541,8147,8923,9103, %T A080177 9323,9433,40093,40193,40493,40693,40993,80897,102101,105401,106501, %U A080177 108401,109001,112111,114311,118411,121021,124021,127321,135131,135431,136531 %N A080177 Non-palindromic primes which on subtracting their reversal give perfect squares. %C A080177 See A232183 for the variant including palindromic primes for which p-R(p) = 0 = 0^2. %H A080177 Harvey P. Dale, <a href="/A080177/b080177.txt">Table of n, a(n) for n = 1..1000</a> %H A080177 Archimedes' Lab, <a href="http://www.archimedes-lab.org/numbers/Num24_69.html#43">What is special about this number? - 43</a>. %e A080177 a(2)=73 because 73-37=36 which is a perfect square. %t A080177 Select[Prime[Range[13000]],!PalindromeQ[#]&&IntegerQ[Sqrt[#-IntegerReverse[ #]]]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Dec 03 2018 *) %o A080177 (PARI) forprime(p=1, 19999, issquare(p-A004086(p))&&p-A004086(p)&&print1(p", ")) \\ - _M. F. Hasler_, Nov 20 2013 %K A080177 base,nonn %O A080177 1,1 %A A080177 _Shyam Sunder Gupta_, Mar 16 2003