1,1
Do[ If[ PrimeQ[ Fibonacci[ n ]*2^n - 1 ], Print[ n ] ], {n, 1, 3000} ]
Sequence in context: A171978 A026080 A071795 * A138049 A099387 A036440
Adjacent sequences: A059498 A059499 A059500 * A059502 A059503 A059504
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 05 2001