A059501 F(n)*2^n - 1 is prime, where F(n) is the n-th Fibonacci number.

2, 4, 7, 24, 25, 47, 57, 60, 241, 391, 1252, 1391, 2340, 4062

Offset

1,1

Links

Table of n, a(n) for n=1..14.

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

Adjacent sequences: A059498 A059499 A059500 * A059502 A059503 A059504

Keyword

nonn

Author

Robert G. Wilson v, Feb 05 2001

Extensions

a(14) added by Harvey P. Dale, Sep 20 2014

Status

approved