1,1

C. K. Caldwell, Fibonacci Numbers

a = 1; Do[ a = a*Fibonacci[n]; If[ PrimeQ[a - 1], Print[n] ], {n, 1, 247} ]

Cf. A053408.

Sequence in context: A073073 A047567 A050038 this_sequence A071623 A140293 A075341

Adjacent sequences: A059706 A059707 A059708 this_sequence A059710 A059711 A059712

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 07 2001