%I #20 Jan 29 2021 07:41:56
%S 0,0,1,5,13,7,11,53,29,21,13,29,89,19,89,75,89,77,189,59,61,103,185,
%T 203,189,95,43,167,253,107,187,79,37,289,173,257,97,43,169,135,131,
%U 175,179,155,291,189,311,155,141,157,449,119,129,349,131,609,383,391,429
%N Number of composite numbers between the largest noncomposite number <= n! and the smallest noncomposite number >= n!.
%H Alois P. Heinz, <a href="/A340802/b340802.txt">Table of n, a(n) for n = 1..2000</a>
%F a(n) = A058054(n)-1 for n >= 2.
%F a(n) = A054588(n)-1 for n >= 3.
%F a(n) = 2 * A340013 - 1 for n >= 3.
%e a(4) = 5: 24, 25, 26, 27, 28.
%e a(5) = 13: 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126.
%e a(6) = 7: 720, 721, 722, 723, 724, 725, 726.
%p prevprime(2):= 1:
%p a:= n-> (f-> max(nextprime(f-1)-prevprime(f+1)-1, 0))(n!):
%p seq(a(n), n=1..64);
%t a[n_] := If[n<3, 0, NextPrime[n!] - NextPrime[n!, -1] - 1];
%t Array[a, 100] (* _Jean-François Alcover_, Jan 29 2021 *)
%Y Cf. A000040, A002808, A008578, A046933, A054588, A058054, A340013.
%K nonn
%O 1,4
%A _Alois P. Heinz_, Jan 21 2021