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