1,2
Do[ If[ PrimeQ[ 2^n + 21 ], Print[ n ] ], {n, 1, 4000} ]
Sequence in context: A066542 A003310 A038525 * A154571 A174269 A112882
Adjacent sequences: A057198 A057199 A057200 * A057202 A057203 A057204
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 16 2000