OFFSET
1,3
LINKS
Zak Seidov, Table of n, a(n) for n = 1..10000
MAPLE
a:= proc(n) option remember; local k;
for k from 1+ `if`(n=1, -1, a(n-1))
while not isprime(2*k^2 + 3) do od; k
end:
seq(a(n), n=1..100); # Alois P. Heinz, Sep 23 2012
MATHEMATICA
p=3; s3={}; Do[If[PrimeQ[p + 2 n^2], AppendTo[s3, n]], {n, 0, 500}]
Select[Range[0, 500], PrimeQ[2#^2+3]&] (* Harvey P. Dale, Nov 24 2013 *)
PROG
(Magma) [n: n in [0..500] | IsPrime(2*n^2+3)]; // Bruno Berselli, Sep 21 2012
(PARI) select(n->isprime(2*n^2+3), vector(2000, n, n-1)) /* Joerg Arndt, Sep 21 2012 */
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Zak Seidov, Sep 20 2012
STATUS
approved