OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..50
FORMULA
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Howard Berman (howard_berman(AT)hotmail.com), Oct 24 2008
EXTENSIONS
Extended by Klaus Brockhaus, Oct 26 2008
STATUS
approved