1,2
Do[ If[ PrimeQ[ 2*3^n + 7 ], Print[n] ], {n, 0, 10000} ]
Adjacent sequences: A059323 A059324 A059325 this_sequence A059327 A059328 A059329
Sequence in context: A065136 A075720 A106373 this_sequence A028312 A074486 A131861
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 15 2001
Search completed in 0.002 seconds