OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
select(t -> isprime(t) and (isprime(t+2) or isprime(t-2)), [seq(x^2+4, x=1..10^4, 2)]); # Robert Israel, May 14 2018
MATHEMATICA
okQ[n_]:=PrimeQ[n]&&(PrimeQ[n-2]||PrimeQ[n+2]); Select[Range[ 2000]^2+4, okQ] (* Harvey P. Dale, Jul 14 2011 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, Jul 04 2003
EXTENSIONS
Edited by Don Reble, May 03 2006
STATUS
approved