OFFSET
1,3
COMMENTS
For the complementary squarefree parts see A197880.
FORMULA
MAPLE
MATHEMATICA
aa = {}; data = Table[kk = Sqrt[(n!)^(n - 2)], {n, 1, 100, 2}]; sp = data /. Sqrt[_] -> 1; sfp = data/sp; sp
Sqrt[#]&/@Table[Max[Select[Divisors[((2n-1)!)^(2n-3)], IntegerQ[Sqrt[#]]&]], {n, 7}] (* Harvey P. Dale, May 24 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Oct 25 2011
STATUS
approved