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