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
KEYWORD
nonn,base
AUTHOR
Shyam Sunder Gupta, Jul 14 2013
EXTENSIONS
a(20)-a(26) from Giovanni Resta, Jul 18 2013
STATUS
approved