This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A181859 #22 Aug 02 2019 23:03:14 %S A181859 1,1,1,1,4,1,9,1,32,9,25,1,12,1,49,5,128,1,81,1,100,21,121,1,144,25, %T A181859 169,27,98,1,5,1,512,11,289,7,108,1,361,13,80,1,147,1,242,3,529,1,64, %U A181859 49,625,17,338,1,729,55,56,57 %N A181859 a(n) = gcd(n^2, n!) / gcd(n^2, n!/floor(n/2)!^2). %F A181859 a(n) = A170826(n) / A181861(n). %p A181859 A181859 := n -> igcd(n^2,n!)/igcd(n^2,n!/iquo(n,2)!^2); %t A181859 a[n_] := GCD[n^2, n!]/GCD[n^2, n!/Quotient[n, 2]!^2]; %t A181859 Table[a[n], {n, 0, 57}] (* _Jean-François Alcover_, Jun 18 2019 *) %o A181859 (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 %Y A181859 Cf. A170826, A181860, A056040, A000290. %K A181859 nonn %O A181859 0,5 %A A181859 _Peter Luschny_, Nov 21 2010