OFFSET
2,4
LINKS
Amiram Eldar, Table of n, a(n) for n = 2..135
Hisanori Mishima, Factorizations of many number sequences: n! - 1 (n = 1 to 100).
R. G. Wilson v, Explicit factorizations
MATHEMATICA
pf[n_]:=Module[{c=n!-1}, If[PrimeQ[c], 1, c/FactorInteger[c][[1, 1]]]]; Array[pf, 30, 2] (* Harvey P. Dale, Dec 13 2012 *)
PROG
(PARI) A056110(n)={n=factor(n!-1); if(norml2(n[, 2])>1, factorback(n)/n[1, 1], 1)} \\ M. F. Hasler, Oct 31 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
Henry Bottomley, Jun 12 2000
EXTENSIONS
Edited and extended by M. F. Hasler, Oct 31 2012
STATUS
approved