OFFSET
1,1
MATHEMATICA
Do[ If[ PrimeQ[ Fibonacci[ n ]*2^n - 1 ], Print[ n ] ], {n, 1, 3000} ]
Select[Range[5000], PrimeQ[Fibonacci[#]2^#-1]&] (* Harvey P. Dale, Sep 20 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Feb 05 2001
EXTENSIONS
a(14) added by Harvey P. Dale, Sep 20 2014
STATUS
approved