|
%I
%S 1,3,7,17,19,31,47,383,2897,3061,4847,5359
%N Integers for which the smallest m in A040076 such that n*2^m+1 is prime (A050921) increases.
%C Where records occur in A040076. A103964 gives the record values.
%t a = -1; Do[m = 0; While[ !PrimeQ[n*2^m + 1], m++ ]; If[m > a, a = m; Print[n]], {n, 1, 10^3} ]
%Y Cf. A040076, A050921.
%K more,nonn
%O 1,2
%A _Robert G. Wilson v_, Oct 16 2001
%E Corrected and extended by _T. D. Noe_, Nov 15 2010
|
