|
|
A227234
|
|
G.f.: Sum_{n>=1} x^n * (1+x)^prime(n).
|
|
1
|
|
|
1, 3, 5, 9, 19, 43, 109, 297, 793, 2059, 5382, 14319, 38897, 110525, 335225, 1067923, 3449922, 11058922, 35087589, 110642516, 346605981, 1072833978, 3270252617, 9869924183, 29933522269, 92890564700, 298225920323, 987831491085, 3330591758612, 11254395868044, 37691422431130, 124450270430236
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
a(n) = Sum_{k=1..n} binomial(prime(k), n-k).
|
|
EXAMPLE
|
G.f.: A(x) = x + 3*x^2 + 5*x^3 + 9*x^4 + 19*x^5 + 43*x^6 + 109*x^7 + 297*x^8 +...
where
A(x) = x*(1+x)^2 + x^2*(1+x)^3 + x^3*(1+x)^5 + x^4*(1+x)^7 + x^5*(1+x)^11 + x^6*(1+x)^13 + x^7*(1+x)^17 + x^8*(1+x)^19 +...+ x^n*(1+x)^prime(n) +...
|
|
PROG
|
(PARI) {a(n)=polcoeff(sum(m=1, n, x^m*(1+x+x*O(x^n))^prime(m)), n)}
for(n=1, 40, print1(a(n), ", "))
(PARI) {a(n) = sum(k=1, n, binomial(prime(k), n-k))}
for(n=1, 40, print1(a(n), ", "))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|