OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[1, 811, 2]^2, PrimeQ[FromDigits[Join[{4}, IntegerDigits[#]]]]&] (* Harvey P. Dale, Oct 16 2011 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Claudio Meller, Nov 10 2009
STATUS
approved