OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[1, 4000, 2]^2, PrimeQ[FromDigits[Join[{3}, IntegerDigits[#]]]] &] (* G. C. Greubel, Jun 21 2016 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Claudio Meller, Nov 10 2009
EXTENSIONS
Definition modified by Harvey P. Dale, Oct 14 2017
STATUS
approved