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
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Mar 28 2004
EXTENSIONS
Corrected and extended by Mohammed Bouayoun (bouyao(AT)wanadoo.fr), Mar 29 2004
STATUS
approved