A064699 Integers for which the smallest m in A040076 such that n*2^m+1 is prime (A050921) increases.

1, 3, 7, 17, 19, 31, 47, 383, 2897, 3061, 4847, 5359, 10223

Offset: 1

Author

Robert G. Wilson v, Oct 16 2001

Keywords

• more
• nonn

Comments

Where records occur in A040076. A103964 gives the record values.

Crossrefs

Cf. A040076, A050921.

Programs

Mathematica

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

Extensions

Corrected and extended by T. D. Noe, Nov 15 2010

a(13) was found by PrimeGrid, added by Arkadiusz Wesolowski, Feb 13 2017