login
A108097
Numbers k such that there is no j <= k with k!+j!-1 prime.
0
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
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
KEYWORD
nonn
AUTHOR
Ralf Stephan, Jun 01 2005
STATUS
approved