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

4, 4, 9, 25, 25, 121, 721, 5041, 40321, 362881, 3628801, 39916813, 479001601, 6227020801, 87178291201, 1307674368001, 20922789888001, 355687428096001, 6402373705728001, 121645100408832001, 2432902008176640001

Offset

0,1

Links

Table of n, a(n) for n=0..20.

Mathematica

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 *)

Crossrefs

Sequence in context: A117879 A334009 A069549 * A089539 A324010 A117416

Adjacent sequences: A118066 A118067 A118068 * A118070 A118071 A118072

Keyword

nonn

Author

Leroy Quet, May 11 2006

Extensions

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

Status

approved