OFFSET
1,1
LINKS
Indranil Ghosh, Table of n, a(n) for n = 1..1000
FORMULA
G.f.: (1/(1-x-x^2)-1)*b(x)/x, where b(x) is the g.f. of A000040. - Mario C. Enriquez, Mar 22 2017
MAPLE
a:= n-> add(ithprime(i)*combinat[fibonacci](n+2-i), i=1..n):
seq(a(n), n=1..40); # Alois P. Heinz, Mar 22 2017
MATHEMATICA
Table[Sum[Fibonacci[k + 1] Prime[n - k + 1], {k, n}], {n, 100}] (* Indranil Ghosh, Mar 22 2017 *)
PROG
(PARI) a(n) = sum(k=1, n, fibonacci(k+1)*prime(n-k+1)); \\ Michel Marcus, Mar 22 2017
(Python)
from sympy import prime, fibonacci
print([sum([fibonacci(k + 1) * prime(n - k + 1) for k in range(1, n + 1)]) for n in range(1, 101)]) # Indranil Ghosh, Mar 22 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved