OFFSET
1,2
COMMENTS
Next term is > 10000.
MATHEMATICA
Select[Range[8000], PrimeQ[(2#)!/#!+1]&] (* Harvey P. Dale, Mar 23 2012 *)
CROSSREFS
KEYWORD
hard,nonn
AUTHOR
Hugo Pfoertner, Sep 25 2005
STATUS
approved