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