OFFSET
1,1
COMMENTS
Subsequence of primes of A273363. - Michel Marcus, Jun 24 2016
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..131
MATHEMATICA
Select[Prime[Range[10000]], IntegerQ[Sqrt[FromDigits[Join[{8}, IntegerDigits[#]]]]]&] (* G. C. Greubel, Jun 23 2016 *)
Select[Prime[Range[80000]], IntegerQ[Sqrt[8*10^IntegerLength[#]+#]]&] (* Harvey P. Dale, Jan 29 2023 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Claudio Meller, Nov 10 2009
EXTENSIONS
Definition corrected and sequence extended by Michel Marcus, Aug 05 2013
STATUS
approved