login
A059501
F(n)*2^n - 1 is prime, where F(n) is the n-th Fibonacci number.
0
2, 4, 7, 24, 25, 47, 57, 60, 241, 391, 1252, 1391, 2340, 4062
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
Sequence in context: A290571 A026080 A071795 * A353986 A138049 A099387
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Feb 05 2001
EXTENSIONS
a(14) added by Harvey P. Dale, Sep 20 2014
STATUS
approved