OFFSET
1,1
COMMENTS
41# = 304250263527210.
MATHEMATICA
Select[Range[0, 300], PrimeQ[304250263527210*2^# - 1] && PrimeQ[304250263527210*2^# + 1] &]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Pierre CAMI, Dec 06 2010
STATUS
approved