%I #28 Apr 13 2020 10:50:53
%S 1,1,1,3,24,100,1800,15435,702464,13716864,163296000,1383574500,
%T 109294479360,3842829083808,1159801183597056,132320316074821875,
%U 8213884352593920000,327816138093181337600,167079259535068179726336,34044607357920579594754944
%N a(n) = Product_{p<=n, p prime} binomial(n,p).
%H Alois P. Heinz, <a href="/A334038/b334038.txt">Table of n, a(n) for n = 0..145</a>
%e For n=2, p=2: a(n) = C(2,2) = 1.
%e For n=3, p=2,3: a(n) = C(3,2) * C(3,3) = 3.
%e For n=4, p=2,3: a(n) = C(4,2) * C(4,3) = 24.
%p a:= n-> mul(`if`(isprime(p), binomial(n, p), 1), p=2..n):
%p seq(a(n), n=0..20); # _Alois P. Heinz_, Apr 13 2020
%o (PARI) a(n) = prod(k=1, n, if (isprime(k), binomial(n, k), 1)); \\ _Michel Marcus_, Apr 13 2020
%o (PARI) a(n)=my(s); forprime(p=2,n, s*=binomial(n,p)); s \\ _Charles R Greathouse IV_, Apr 13 2020
%Y Cf. A000040, A001142, A010051, A121497.
%K nonn
%O 0,4
%A _Om R. Patel_, Apr 13 2020