1,2
Do[ If[ PrimeQ[ 2*3^n - 7 ], Print[n] ], {n, 0, 5700} ]
Sequence in context: A101216 A175095 A073216 * A138538 A102694 A124253
Adjacent sequences: A059451 A059452 A059453 * A059455 A059456 A059457
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 15 2001