A249675 - OEIS

A249675

Multinomial coefficient (2+3+...+prime(n); 2,3,5,7,...,prime(n)) = A007504(n)! / A111180(n).

1, 10, 2520, 49008960, 1052427228652800, 18543848132205515927808000, 3663312848979081767807855264321333760000, 1860046674511129497317809046448809961990598435124736000000, 46250563343969315569958487234182581699417368835772148395100189090556723200000000

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

LINKS

Table of n, a(n) for n=1..9.

MAPLE

a := n -> add(ithprime(k), k=1..n)!/mul(ithprime(k)!, k=1..n);

seq(a(n), n=0..9); # Peter Luschny, Nov 04 2014

MATHEMATICA

a[n_]:=Sum[Prime[i], {i, n}]!/Product[Prime[i]!, {i, n}]; Array[a, 9] (* Stefano Spezia, Dec 07 2025 *)

PROG

(PARI) a(n) = my(d=1, t=0); forprime(p=2, prime(n), d*=p!; t+=p); t!\d