1,1
Do[ If[ PrimeQ[2^n + 23], Print[ n ]], {n, 1, 5000} ]
Sequence in context: A169741 A192198 A061931 * A056250 A113870 A074582
Adjacent sequences: A057200 A057201 A057202 * A057204 A057205 A057206
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 16 2000