1,2
Do[ If[ PrimeQ[3^n + 4], Print[n] ], {n, 1, 3000} ]
Sequence in context: A191178 A191127 A157217 * A189708 A127590 A118730
Adjacent sequences: A058955 A058956 A058957 * A058959 A058960 A058961
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 13 2001