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,2

Links

Table of n, a(n) for n=1..52.

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

Cf. A075758.

Sequence in context: A101849 A141562 A353205 * A102764 A164318 A307533

Adjacent sequences: A108094 A108095 A108096 * A108098 A108099 A108100

Keyword

nonn

Author

Ralf Stephan, Jun 01 2005

Status

approved