OFFSET
1,2
MATHEMATICA
Select[Range[200], NoneTrue[Table[#!-x!+1, {x, #-1}], PrimeQ]&] (* Harvey P. Dale, Sep 12 2022 *)
PROG
(PARI) for (a=1, 100, c=0; for (b=1, a-1, if (b%2<>a%2, continue); if (isprime(a!-b!+1), c=1; break)); if (c==0, print1(a, ", ")))
CROSSREFS
KEYWORD
nonn
AUTHOR
Jon Perry, Oct 08 2002
EXTENSIONS
More terms from Harvey P. Dale, Sep 12 2022
STATUS
approved