1,1

Note that for the values 2 and 4 the primes are negative.

Do[ If[ PrimeQ[ 2^n - 23 ], Print[ n ] ], { n, 1, 15000} ]

Sequence in context: A010063 A089623 A089681 this_sequence A082742 A100195 A131197

Adjacent sequences: A057217 A057218 A057219 this_sequence A057221 A057222 A057223

nonn

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