1,2
Do[ If[ PrimeQ[ Fibonacci[ n ]*2^n + 1 ], Print[ n ] ], {n, 1, 3000} ]
Cf. A006483.
Sequence in context: A100385 A128460 A101541 this_sequence A038975 A059456 A019394
Adjacent sequences: A059667 A059668 A059669 this_sequence A059671 A059672 A059673
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 05 2001
Search completed in 0.002 seconds