A145912 Prime Leonardo numbers.

3, 5, 41, 67, 109, 1973, 5167, 2692537, 11405773, 126491971, 331160281, 535828591, 279167724889, 145446920496281, 28944668049352441, 5760134388741632239, 63880869269980199809, 167242286979696845953, 597222253637954133837103

Offset: 1

Author

Howard Berman (howard_berman(AT)hotmail.com), Oct 24 2008

Keywords

• nonn

Links

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

Crossrefs

Cf. A001595.

Programs

Mathematica

A228145 = Select[Range[200], PrimeQ[2 Fibonacci[#] - 1] &]; A001595[n_] := 2*Fibonacci[n + 1] - 1; a = A001595[A228145 - 1] (* Amiram Eldar, Sep 04 2017 *)

Formula

a(n) = A001595(A228145(n)-1). - Amiram Eldar, Sep 04 2017

Extensions

Extended by Klaus Brockhaus, Oct 26 2008