|
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
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]!) (* From 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: A074189 A091230 A063852 * A089708 A107881 A128001
Adjacent sequences: A092980 A092981 A092982 * A092984 A092985 A092986
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Mar 28 2004
|
|
|
EXTENSIONS
| Corrected and extended by Mohammed Bouayoun (bouyao(AT)wanadoo.fr), Mar 29 2004
|
| |
|
|
