|
|
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
For n>1, a(n) is divisible by the product of the first n odd primes.
|
|
LINKS
|
|
|
MATHEMATICA
|
c[n_] := CoefficientList[(1 + x)^n, x]
f[n_] := Product[Prime[k]^c[n][[k]],
{k, 1, Length[c[n]]}]
t=Table[f[n], {n, 1, 7}] (* A007188 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|