1,2

a = -1; Do[m = 0; While[ !PrimeQ[n*2^m + 1], m++ ]; If[m > a, a = m; Print[n]], {n, 1, 10^3} ]

Cf. A040076, A050921.

Sequence in context: A087749 A140863 A076194 this_sequence A113304 A093651 A018411

Adjacent sequences: A064696 A064697 A064698 this_sequence A064700 A064701 A064702

more,nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Oct 16 2001