1,2
Do[ If[ PrimeQ[ 5*2^n + 7 ], Print[n] ], {n, 1, 3000} ]
Sequence in context: A076245 A172308 A190812 * A122124 A007665 A194602
Adjacent sequences: A059745 A059746 A059747 * A059749 A059750 A059751
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 10 2001