A227525 Squares which can be represented as sum of a prime and its reverse in at least one way.

4, 121, 625, 94249, 698896, 1517824, 5313025, 6325225, 6895876, 6948496, 7706176, 15665764, 63600625, 95199049, 170198116, 449948944, 522808225, 562069264, 1101576100, 1183979281, 1254505561, 1271564281, 1615718416, 4045214404, 9504885049, 10989328900

Offset: 1

Author

Shyam Sunder Gupta, Jul 14 2013

Keywords

• nonn
• base

Examples

			121=29+92
		

Links

• Giovanni Resta, Table of n, a(n) for n = 1..56 (terms < 2*10^12)

Crossrefs

Cf. A067030.

Programs

Mathematica

SquareQ[n_Integer?Positive] := IntegerQ[Sqrt[n]] ; Union[Select[ Table[ Prime[x] + FromDigits[ Reverse[ IntegerDigits[ Prime[x]]]], {x,  5761455}], SquareQ]]
Select[Union[#+IntegerReverse[#]&/@Prime[Range[10^6]]],IntegerQ[Sqrt[#]]&] (* The program generates the first 12 terms of the sequence. *) (* Harvey P. Dale, Sep 14 2022 *)

Extensions

a(20)-a(26) from Giovanni Resta, Jul 18 2013