1,1
Do[ If[ PrimeQ[ 3*2^n - 7 ], Print[n] ], {n, 1, 3000} ]
Sequence in context: A048486 A179402 A065428 * A094087 A017821 A113439
Adjacent sequences: A059744 A059745 A059746 * A059748 A059749 A059750
nonn,more
Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 10 2001