OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..105
MATHEMATICA
Select[Prime[Range[300000]], IntegerQ[Sqrt[FromDigits[Join[{6}, IntegerDigits[ #]]]]]&] (* Harvey P. Dale, May 05 2012 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Claudio Meller, Nov 10 2009
EXTENSIONS
More terms from Harvey P. Dale, May 05 2012
STATUS
approved