OFFSET
1,1
COMMENTS
3*5 = 15+-2 -> primes, 9*11 = 99+-2 -> primes,..
MATHEMATICA
f[n_]:=n*(n+2); Select[Table[f[n], {n, 1, 7!, 2}], PrimeQ[ #-2]&&PrimeQ[ #+2]&]
Select[Times@@@Partition[Range[1, 2001, 2], 2, 1], And@@PrimeQ[#+{2, -2}]&] (* Harvey P. Dale, Dec 14 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Mar 17 2010
STATUS
approved