OFFSET
1,4
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..1000
MATHEMATICA
Table[Count[Divisors[n!], d_ /; IntegerQ@ Sqrt@ d], {n, 30}] (* Michael De Vlieger, Feb 05 2017 *)
PROG
(PARI) a(n) = sumdiv(n!, d, issquare(d)); \\ Michel Marcus, Dec 26 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 21 2000
STATUS
approved