%I #6 Mar 06 2015 23:18:41
%S 383,766,881,1532,1643,1762,2897,3061,3064,3286,3443,3524,3829,4847,
%T 4861,5297,5359,5794,5897,6122,6128,6319,6572,6886,7013,7352,7493,
%U 7651,7658,7909,7957,8119,8269,8423,8543,8929,9323,9694,9722
%N Potential Sierpiński numbers: integers for which the smallest m > 2^10 in A040076 such that n*2^m+1 is prime (A050921).
%C The first confirmed Sierpiński number is 78557.
%t Do[m = 0; While[m <= 2^10 && !PrimeQ[n*2^m + 1], m++ ]; If[m > 2^10, Print[n]], {n, 1, 10^4} ]
%Y Cf. A040076, A050921.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Oct 16 2001
|