OFFSET
1,2
COMMENTS
a(48) = 829489, 1438879 is such that 32771*2^1438879 + 1 is prime with 433151 digits, 829489 < a(49) <= 1438879.
MATHEMATICA
Select[Range@ 3000, PrimeQ[32771*2^# + 1] &] (* Michael De Vlieger, Jan 23 2017 *)
PROG
(PFGW) 32771*2^$a+1
$a: from 1 to 1000001 step 2
(PARI) list(limit)=my(i=1); while(i<limit, if(isprime(32771*2^i+1), print1(i, ", ")); i++) \\ Anders Hellström, Feb 04 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Pierre CAMI, Jan 22 2017
STATUS
approved