A080177 Non-palindromic primes which on subtracting their reversal give perfect squares.

43, 73, 2141, 2251, 4253, 4363, 4583, 6701, 7211, 7321, 7541, 8147, 8923, 9103, 9323, 9433, 40093, 40193, 40493, 40693, 40993, 80897, 102101, 105401, 106501, 108401, 109001, 112111, 114311, 118411, 121021, 124021, 127321, 135131, 135431, 136531

Offset

1,1

Comments

See A232183 for the variant including palindromic primes for which p-R(p) = 0 = 0^2.

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Archimedes' Lab, What is special about this number? - 43.

Example

a(2)=73 because 73-37=36 which is a perfect square.

Mathematica

Select[Prime[Range[13000]], !PalindromeQ[#]&&IntegerQ[Sqrt[#-IntegerReverse[ #]]]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Dec 03 2018 *)

Prog

(PARI) forprime(p=1, 19999, issquare(p-A004086(p))&&p-A004086(p)&&print1(p", ")) \\ - M. F. Hasler, Nov 20 2013

Crossrefs

Sequence in context: A139932 A290635 A176925 * A238248 A121957 A118075

Adjacent sequences: A080174 A080175 A080176 * A080178 A080179 A080180

Keyword

base,nonn

Author

Shyam Sunder Gupta, Mar 16 2003

Status

approved