OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
FORMULA
a(n) = A028873(n)/2.
MATHEMATICA
Select[Range[300], PrimeQ[4 #^2 - 3] &] (* Vincenzo Librandi, Oct 05 2012 *)
PROG
(Magma) [n: n in [1..300] | IsPrime(4*n^2 - 3)]; // Vincenzo Librandi, Oct 05 2012
(PARI) is(n)=isprime(4*n^2-3) \\ Charles R Greathouse IV, May 22 2017
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Hugo Pfoertner, May 31 2003
STATUS
approved