OFFSET
4,1
MATHEMATICA
cc = {}; Do[f = n!/4; x = Max[Select[Divisors[f], # <= Sqrt[f] &]]; kk = f/x - x; kkk = ((n! - 4)/4); AppendTo[cc, kkk - kk], {n, 4, 20}]; cc
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Artur Jasinski, Mar 31 2012
STATUS
approved