1,2

Do[ If[ PrimeQ[ 2^n + 17 ], Print[ n ]], {n, 0, 11811} ]

Sequence in context: A164485 A164447 A164419 this_sequence A164454 A164426 A164473

Adjacent sequences: A057197 A057198 A057199 this_sequence A057201 A057202 A057203

nonn

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