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 A056596 #14 Sep 08 2022 08:45:01 %S A056596 0,1,3,6,14,24,54,88,148,240,510,756,1548,2520,3936,5248,10624,14508, %T A056596 29196,40740,60500,95400,191400,242016,338880,529920,674688,912912, %U A056596 1830192,2327424,4660224,5523456,7858176,12152064,16406592,19576080 %N A056596 Number of nonsquare divisors of n!. %H A056596 Amiram Eldar, <a href="/A056596/b056596.txt">Table of n, a(n) for n = 1..1000</a> %F A056596 a(n) = d(n!) - A046951(n!) %F A056596 a(n) = A027423(n) - A055993(n). - _Amiram Eldar_, Jul 16 2019 %t A056596 Table[Count[Divisors[n!], d_ /; !IntegerQ@ Sqrt@ d], {n, 30}] (* _Amiram Eldar_, Jul 16 2019 after _Michael De Vlieger_ at A055993 *) %o A056596 (Magma) [#[d:d in Divisors(Factorial(n))| not IsSquare(d)]:n in [1..36]]; // _Marius A. Burtea_, Jul 16 2019 %Y A056596 A000142, A000005, A046951, A055772, A027423, A055993. %K A056596 nonn %O A056596 1,3 %A A056596 _Labos Elemer_, Jul 21 2000