1,1

Do[ If[ PrimeQ[2^n + 23], Print[ n ]], {n, 1, 5000} ]

Sequence in context: A162926 A042895 A061931 this_sequence A056250 A113870 A074582

Adjacent sequences: A057200 A057201 A057202 this_sequence A057204 A057205 A057206

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 16 2000