A055928 Sum of square divisors of n! = sum of squares of divisors of the square root of largest square dividing n!.

1, 1, 1, 5, 5, 210, 210, 850, 7735, 806806, 806806, 3229590, 3229590, 161479500, 1455090000, 23286770000, 23286770000, 838446909300, 838446909300, 83973923013750, 83973923013750, 10244818607677500, 10244818607677500

Offset

1,4

Links

Amiram Eldar, Table of n, a(n) for n = 1..505

Formula

a(n) = A035316(n!) = A001157(A055772(n)) = A001157(A000188(n!)).

Mathematica

f[p_, e_] := If[OddQ[e], (p^(e+1)-1)/(p^2-1) , (p^(e+2)-1)/(p^2-1)]; a[1] = 1; a[n_] := Times @@ (f @@@ FactorInteger[n!]); Array[a, 23] (* Amiram Eldar, Aug 01 2019 *)

Crossrefs

A001157, A000142, A035316, A055772, A000188.

Sequence in context: A215729 A364452 A094463 * A213145 A195567 A051716

Adjacent sequences: A055925 A055926 A055927 * A055929 A055930 A055931

Keyword

nonn

Author

Labos Elemer, Jul 21 2000

Status

approved