Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A092983
Least squarefree number > n!.
1
2, 3, 7, 26, 122, 721, 5042, 40321, 362881, 3628801, 39916801, 479001602, 6227020801, 87178291201, 1307674368001, 20922789888001, 355687428096001, 6402373705728001, 121645100408832001, 2432902008176640001
OFFSET
1,1
EXAMPLE
a(5) = 122 as 121 is not squarefree.
MATHEMATICA
lsf[n_]:=Module[{i=1}, While[!SquareFreeQ[n+i], i++]; n+i]; lsf/@(Range[20]!) (* Harvey P. Dale, Apr 06 2011 *)
PROG
(PARI) a(n)=for(i=n!+1, n!+n, if(issquarefree(i), return(i)))
CROSSREFS
Cf. A092984.
Sequence in context: A274692 A342155 A308114 * A089708 A107881 A371161
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Mar 28 2004
EXTENSIONS
Corrected and extended by Mohammed Bouayoun (bouyao(AT)wanadoo.fr), Mar 29 2004
STATUS
approved