1,2

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

Sequence in context: A158422 A018161 A067880 this_sequence A164142 A048833 A070689

Adjacent sequences: A059746 A059747 A059748 this_sequence A059750 A059751 A059752

nonn

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