login
Number of divisors of (n!)!, or A000197.
1

%I #18 Sep 08 2022 08:45:03

%S 1,1,2,30,242880,23565900177211392000,

%T 2773739201349556936377871973938118055565107020522751759201737480601600000000000000

%N Number of divisors of (n!)!, or A000197.

%H Harry J. Smith, <a href="/A062008/b062008.txt">Table of n, a(n) for n=0,...,7</a>

%p with(numtheory): A062008:=n->tau((n!)!): seq(A062008(n), n=0..6); # _Wesley Ivan Hurt_, Nov 08 2014

%t Table[DivisorSigma[0, (n!)!], {n, 0, 6}] (* _Wesley Ivan Hurt_, Nov 08 2014 *)

%o (PARI) for(n=0,6,print(numdiv(n!!)))

%o (PARI) { for (n=0, 7, write("b062008.txt", n, " ", numdiv(n!!)) ) } \\ [_Harry J. Smith_, Jul 29 2009]

%o (Magma) [NumberOfDivisors(Factorial(Factorial(n))): n in [0..7]]; // _Vincenzo Librandi_, Nov 09 2014

%Y Cf. A000197, A000203, A062569

%K easy,nonn

%O 0,3

%A _Jason Earls_, Jul 04 2001