A062008 Number of divisors of (n!)!, or A000197.

1, 1, 2, 30, 242880, 23565900177211392000, 2773739201349556936377871973938118055565107020522751759201737480601600000000000000

Offset: 0

Author

Jason Earls, Jul 04 2001

Keywords

• easy
• nonn

Links

• Harry J. Smith, Table of n, a(n) for n=0,...,7

Crossrefs

Cf. A000197, A000203, A062569

Programs

Magma

[NumberOfDivisors(Factorial(Factorial(n))): n in [0..7]]; // Vincenzo Librandi, Nov 09 2014

Maple

with(numtheory): A062008:=n->tau((n!)!): seq(A062008(n), n=0..6); # Wesley Ivan Hurt, Nov 08 2014

Mathematica

Table[DivisorSigma[0, (n!)!], {n, 0, 6}] (* Wesley Ivan Hurt, Nov 08 2014 *)

PARI

for(n=0,6,print(numdiv(n!!)))

PARI

{ for (n=0, 7, write("b062008.txt", n, " ", numdiv(n!!)) ) } \\ [Harry J. Smith, Jul 29 2009]