OFFSET
1,1
COMMENTS
The first confirmed Sierpiński number is 78557.
MATHEMATICA
Do[m = 0; While[m <= 2^10 && !PrimeQ[n*2^m + 1], m++ ]; If[m > 2^10, Print[n]], {n, 1, 10^4} ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Oct 16 2001
STATUS
approved