OFFSET
1,1
COMMENTS
Subsequence of squares of A032665. - Michel Marcus, Jun 21 2016
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[1, 500, 2]^2, PrimeQ[FromDigits[Join[{2}, IntegerDigits[#]]]] &](* G. C. Greubel, Jun 21 2016 *)
Select[Range[800]^2, PrimeQ[2*10^IntegerLength[#]+#]&] (* Harvey P. Dale, Oct 23 2022 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Claudio Meller, Nov 10 2009
STATUS
approved