A118069 - OEIS

%I #8 Apr 09 2023 08:49:26

%S 4,4,9,25,25,121,721,5041,40321,362881,3628801,39916813,479001601,

%T 6227020801,87178291201,1307674368001,20922789888001,355687428096001,

%U 6402373705728001,121645100408832001,2432902008176640001

%N a(n) = smallest composite which is > n! and is coprime to n!.

%t scc[n_]:=Module[{nf=n!,k},k=nf+1;While[!CompositeQ[k]||!CoprimeQ[k,nf],k++];k]; Array[ scc,30,0] (* _Harvey P. Dale_, Apr 09 2023 *)

%K nonn

%O 0,1

%A _Leroy Quet_, May 11 2006

%E More terms from Adam Panagos (adam.panagos(AT)gmail.com), May 15 2006