A086393 (1/p)*(F(4p^2+1)-5) where F(k) denotes the k-th Fibonacci number and p runs through the primes (except p = 5).

796, 8052604, 9461981336155069468822591736529315271296, 9292398668557665888916264724971758869540485023089944923825933834884439357360408394799215865660623680

Offset

1,1

Links

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

Mathematica

Table[(Fibonacci[4*p^2+1] - 5)/p, {p, Delete[Prime[Range[5]], 3]}] (* Amiram Eldar, Apr 21 2025 *)

Crossrefs

Cf. A000045, A086367.

Sequence in context: A136543 A133274 A261657 * A336943 A108251 A108252

Adjacent sequences: A086390 A086391 A086392 * A086394 A086395 A086396

Keyword

nonn

Author

Benoit Cloitre, Sep 06 2003

Status

approved