OFFSET
1,1
COMMENTS
If k = 1 then n*2^n-1 is a Woodall prime (A050918).
LINKS
Pierre CAMI, Table of n, a(n) for n = 1..10000
MATHEMATICA
Table[k = 1; While[! PrimeQ[k n*2^n - 1], k++]; k, {n, 78}] (* Michael De Vlieger, Jun 07 2017 *)
PROG
(PARI) a(n) = my(k=1); while(1, if(ispseudoprime(k*n*2^n-1), return(k)); k++) \\ Felix Fröhlich, Jun 06 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Pierre CAMI, Jun 06 2017
STATUS
approved