A086546 (1/p)*(F(2p)-F(p)) where p runs through the primes and F(k) denotes the k-th Fibonacci number.

1, 2, 10, 52, 1602, 9320, 335370, 2057052, 79838402, 20389179850, 130733490052, 35269446507320, 1495263184293450, 9772003262651052, 420005834402064002, 119930320621764716170, 34690018838525896638402, 229973223827810009313800, 67419261129109655609529852

Offset

1,2

Links

Amiram Eldar, Table of n, a(n) for n = 1..357

Mathematica

Table[1/p (Fibonacci[2p]-Fibonacci[p]), {p, Prime[Range[20]]}] (* Harvey P. Dale, Mar 29 2017 *)

Prog

(PARI) list(lim) = forprime(p = 1, lim, print1((fibonacci(2*p) - fibonacci(p))/p, ", ")); \\ Amiram Eldar, Apr 23 2025

Crossrefs

Cf. A000045.

Sequence in context: A216340 A080117 A080118 * A057415 A373907 A037724

Adjacent sequences: A086543 A086544 A086545 * A086547 A086548 A086549

Keyword

nonn

Author

Benoit Cloitre, Sep 10 2003

Status

approved