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