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
Keywords
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
Extensions
Extended by Klaus Brockhaus, Oct 26 2008