OFFSET
1,2
MATHEMATICA
Select[Range[250], NoneTrue[(#!-1)+Range[#]!, PrimeQ]&] (* The program uses the NoneTrue function from Mathematica version 10 *) (* Harvey P. Dale, Mar 28 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ralf Stephan, Jun 01 2005
STATUS
approved