%I
%S 521,10889,23201,27449,31769,36161,45161,54449,78929,99809,1148921,
%T 1229201,1309769,1431161,2047841,2257001,2299049,2467961,2595401,
%U 2680721,2766329,2809241,2895281,2938409,3024881,3329801,3417569,3461561
%N Primes that becomes a square when prefixed with a 1.
%H Vincenzo Librandi, <a href="/A167734/b167734.txt">Table of n, a(n) for n = 1..59</a>
%t Select[Prime[Range[1000]], IntegerQ[Sqrt[FromDigits[Join[{1}, IntegerDigits[#]]]]]&] (* _G. C. Greubel_, Jun 23 2016 *)
%Y Cf. A167735, A167736, A167737, A167738, A167739, A167740, A167741.
%K base,nonn
%O 1,1
%A _Claudio Meller_, Nov 10 2009
%E More terms from _Michel Marcus_, Aug 05 2013
