A092983 Least squarefree number > n!.
2, 3, 7, 26, 122, 721, 5042, 40321, 362881, 3628801, 39916801, 479001602, 6227020801, 87178291201, 1307674368001, 20922789888001, 355687428096001, 6402373705728001, 121645100408832001, 2432902008176640001
Offset: 1
Keywords
Examples
a(5) = 122 as 121 is not squarefree.
Crossrefs
Cf. A092984.
Programs
-
Mathematica
lsf[n_]:=Module[{i=1},While[!SquareFreeQ[n+i],i++];n+i]; lsf/@(Range[20]!) (* Harvey P. Dale, Apr 06 2011 *) -
PARI
a(n)=for(i=n!+1,n!+n,if(issquarefree(i),return(i)))
Extensions
Corrected and extended by Mohammed Bouayoun (bouyao(AT)wanadoo.fr), Mar 29 2004