A108097 Numbers k such that there is no j <= k with k!+j!-1 prime.

1, 13, 19, 30, 32, 48, 54, 62, 63, 64, 68, 74, 75, 78, 90, 92, 93, 106, 109, 111, 112, 115, 117, 123, 128, 129, 131, 133, 135, 138, 144, 146, 156, 158, 159, 161, 162, 168, 170, 174, 175, 196, 197, 205, 211, 213, 217, 218, 219, 220, 230, 234

Offset: 1

Author

Ralf Stephan, Jun 01 2005

Keywords

• nonn

Crossrefs

Cf. A075758.

Programs

Mathematica

Select[Range[250],NoneTrue[(#!-1)+Range[#]!,PrimeQ]&] (* The program uses the NoneTrue function from Mathematica version 10 *) (* Harvey P. Dale, Mar 28 2015 *)