1,1
Do[ If[ PrimeQ[ 7*2^n - 5 ], Print[ n ] ], {n, 1, 5371} ]
Sequence in context: A077569 A073935 A073696 * A133808 A160560 A093109
Adjacent sequences: A058599 A058600 A058601 * A058603 A058604 A058605
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 26 2000