login
Smallest nontrivial extension of n-th palindromic prime which is a square.
2

%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_