OFFSET
1,1
COMMENTS
Next term is > 9680.
MATHEMATICA
Select[Range[7000], PrimeQ[(2#)!/#!-1]&] (* James C. McMahon, Jun 12 2024 *)
CROSSREFS
KEYWORD
hard,more,nonn
AUTHOR
Hugo Pfoertner, Sep 25 2005
EXTENSIONS
a(15) from Michael S. Branicky, Jun 12 2024
STATUS
approved