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

Offset

1,2

Links

Table of n, a(n) for n=1..18.

Mathematica

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

Crossrefs

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