1,2
Do[ If[ PrimeQ[ (7*3^n + 5)/2 ], Print[n] ], {n, 0, 5300} ]
Sequence in context: A063185 A165260 A201874 * A070079 A142717 A057742
Adjacent sequences: A059525 A059526 A059527 * A059529 A059530 A059531
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 16 2001