OFFSET
1,3
FORMULA
a(n) = A096689(n)/2.
MATHEMATICA
f[n_]:=n^2+(n+1)^2+(n+2); lst={}; Do[p=f[n]; If[PrimeQ[p], AppendTo[lst, n/2]], {n, 0, 6!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jul 04 2009 *)
Select[Range[0, 300], PrimeQ[8#^2+6#+3]&] (* Harvey P. Dale, Jun 11 2015 *)
PROG
(PARI) is(n)=isprime(8*n^2+6*n+3) \\ Charles R Greathouse IV, May 22 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Ray Chandler, Jul 12 2004
STATUS
approved