%I #7 Jul 10 2021 16:15:52
%S 1,13,19,30,32,48,54,62,63,64,68,74,75,78,90,92,93,106,109,111,112,
%T 115,117,123,128,129,131,133,135,138,144,146,156,158,159,161,162,168,
%U 170,174,175,196,197,205,211,213,217,218,219,220,230,234
%N Numbers k such that there is no j <= k with k!+j!-1 prime.
%t Select[Range[250],NoneTrue[(#!-1)+Range[#]!,PrimeQ]&] (* The program uses the NoneTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Mar 28 2015 *)
%Y Cf. A075758.
%K nonn
%O 1,2
%A _Ralf Stephan_, Jun 01 2005