|
%I #6 Mar 30 2012 18:58:12
%S 1,15,7875,11142140625,467812950752090302734375,
%T 202822649430450649753225796950422853099588897705078125
%N (1/6)*A007188(n).
%C For n>1, a(n) is divisible by the product of the first n odd primes.
%t c[n_] := CoefficientList[(1 + x)^n, x]
%t f[n_] := Product[Prime[k]^c[n][[k]],
%t {k, 1, Length[c[n]]}]
%t t=Table[f[n], {n, 1, 7}] (* A007188 *)
%t t/6 (* A206295 *)
%Y Cf. A007188.
%K nonn
%O 1,2
%A _Clark Kimberling_, Feb 05 2012
|
