1,2

Do[ If[ PrimeQ[ 5*2^n + 7 ], Print[n] ], {n, 1, 3000} ]

Sequence in context: A085493 A139252 A076245 this_sequence A122124 A007665 A062488

Adjacent sequences: A059745 A059746 A059747 this_sequence A059749 A059750 A059751

nonn

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