A064497 a(n) = prime(n) * Fibonacci(n).
2, 3, 10, 21, 55, 104, 221, 399, 782, 1595, 2759, 5328, 9553, 16211, 28670, 52311, 94223, 157624, 280127, 480315, 799058, 1399169, 2378531, 4126752, 7277425, 12260693, 20231054, 34005777, 56050961, 94020520, 170976163, 285358479, 482867186, 792701293
Offset: 1
Keywords
Links
- Harry J. Smith, Table of n, a(n) for n = 1..300
Programs
-
Magma
[NthPrime(n)*Fibonacci(n): n in [1..40]]; // Vincenzo Librandi, Jun 24 2018
-
Mathematica
Table[Fibonacci[n] Prime[n], {n, 35}] (* Vincenzo Librandi, Jun 24 2018 *)
-
PARI
{ g=0; f=1; for (n=1, 300, write("b064497.txt", n, " ", prime(n)*f); h=g; g=f; f+=h ) } \\ Harry J. Smith, Sep 16 2009
-
PARI
a(n) = prime(n)*fibonacci(n); \\ Michel Marcus, Jun 24 2018