OFFSET
1,1
COMMENTS
The first seven terms are primes squared: 3^2, 5^2, 7^2, 11^2, 13^2, 17^2, 19^2, 23^2.
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Table[(2Prime[n] + 3)^(1/2), {n, 3500}], IntegerQ]^2 (* Ray Chandler, Aug 25 2005 *)
Select[2*Prime[Range[3500]]+3, IntegerQ[Sqrt[#]]&] (* Harvey P. Dale, Sep 07 2020 *)
PROG
(PARI) is(n)=issquare(n) && n%2 && isprime(n\2-1) \\ Charles R Greathouse IV, Aug 06 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Teofilatto, Aug 23 2005
EXTENSIONS
Extended by Ray Chandler and Robert G. Wilson v, Aug 25 2005
STATUS
approved