|
|
A004398
|
|
a(n) = Fibonacci(n+1) + prime(n).
|
|
1
|
|
|
3, 5, 8, 12, 19, 26, 38, 53, 78, 118, 175, 270, 418, 653, 1034, 1650, 2643, 4242, 6832, 11017, 17784, 28736, 46451, 75114, 121490, 196519, 317914, 514336, 832149, 1346382, 2178436, 3524709, 5703024, 9227604, 14930501, 24157968, 39088326
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
a(5) = Fibonacci(6) + prime(5) = 8 + 11 = 19.
|
|
MAPLE
|
f := n -> fibonacci(n+1) + ithprime(n);
|
|
MATHEMATICA
|
With[{nn=40}, Total/@Thread[{Prime[Range[nn]], Fibonacci[Range[2, nn+1]]}]] (* Harvey P. Dale, Dec 18 2011 *)
|
|
PROG
|
(PARI) A004398(n) = fibonacci(n+1) + prime(n)
(Magma) [Fibonacci(n+1) + NthPrime(n): n in [1..50]]; // Vincenzo Librandi, Apr 20 2011
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Hegermann, Frank (hegermann(AT)oi.dbv.commerzbank.dbp.de)
|
|
STATUS
|
approved
|
|
|
|