login
A227525
Squares which can be represented as sum of a prime and its reverse in at least one way.
2
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,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..56 (terms < 2*10^12)
EXAMPLE
121=29+92
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 *)
CROSSREFS
Cf. A067030.
Sequence in context: A017186 A355751 A098839 * A071129 A241366 A358570
KEYWORD
nonn,base
AUTHOR
Shyam Sunder Gupta, Jul 14 2013
EXTENSIONS
a(20)-a(26) from Giovanni Resta, Jul 18 2013
STATUS
approved