OFFSET
0,5
MAPLE
A181859 := n -> igcd(n^2, n!)/igcd(n^2, n!/iquo(n, 2)!^2);
MATHEMATICA
a[n_] := GCD[n^2, n!]/GCD[n^2, n!/Quotient[n, 2]!^2];
Table[a[n], {n, 0, 57}] (* Jean-François Alcover, Jun 18 2019 *)
PROG
(PARI) a(n)=if(isprime(n), n, if(n==4, 8, n^2))/gcd(n^2, n!/(n\2)!^2) \\ Charles R Greathouse IV, Feb 01 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Peter Luschny, Nov 21 2010
STATUS
approved