OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..107
MATHEMATICA
Select[Prime[Range[1000000]], IntegerQ[Sqrt[FromDigits[Join[{3}, IntegerDigits[ #]]]]]&] (* Harvey P. Dale, Nov 01 2011 *)
PROG
(PARI)
\\ terms upto 10^n
upto(n) = {my(sqrt31 = sqrt(3.1), sqrt40 = sqrt(4.0), r); for(k=2, n, for(j = ceil((sqrt31 * sqrt(10^k))), floor(sqrt40 * sqrt(10^k)), r = j^2%10^k; if(isprime(r), print1(r", "))))} \\ David A. Corneth, Jun 24 2016
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Claudio Meller, Nov 10 2009
EXTENSIONS
More terms from Harvey P. Dale, Nov 01 2011
STATUS
approved