%I #9 May 24 2016 23:52:51
%S 25,36,529,729,1156,101124,131044,15129,181476,191844,3136,35344,
%T 373321,383161,727609,7573504,7873636,797449,919681,929296,1030153216,
%U 1050148836,10601536,1131111424,1141155961,124211025
%N Smallest nontrivial extension of n-th palindromic prime which is a square.
%H Chai Wah Wu, <a href="/A030681/b030681.txt">Table of n, a(n) for n = 1..10000</a>
%t d[n_]:=IntegerDigits[n]; Table[i=1; While[!IntegerQ[Sqrt[x=FromDigits[Flatten[{d[n],d[i]}]]]],i++]; x,{n,Select[Prime[Range[1500]],Reverse[x=d[#]]==x &]}] (* _Jayanta Basu_, May 24 2013 *)
%Y Cf. A030682.
%K nonn,base
%O 1,1
%A _Patrick De Geest_