1,2
Do[ If[ PrimeQ[3^n + 4], Print[n] ], {n, 1, 3000} ]
Sequence in context: A089160 A045588 A157217 this_sequence A127590 A118730 A097384
Adjacent sequences: A058955 A058956 A058957 this_sequence A058959 A058960 A058961
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 13 2001
Search completed in 0.002 seconds