OFFSET
1,1
COMMENTS
a(1) through a(32) have been proved to be prime with WinPFGW. a(32) has 7901 digits. No more terms up to 7300.
Results were computed using the PrimeFormGW (PFGW) primality-testing program. - Hugo Pfoertner, Nov 14 2019
EXAMPLE
a(5)=14 because 1155 * 2^14 - 1 = 18923519, a prime.
MATHEMATICA
Do[ If[ PrimeQ[ Product[ Prime[i], {i, Floor[ n / Log[2, 10] + 1]}] * 2^(n - 1) - 1], Print[n]], {n, 7300}] (* Robert G. Wilson v, Jul 23 2004 *)
CROSSREFS
KEYWORD
more,nonn,base
AUTHOR
Jason Earls, Jul 18 2004
EXTENSIONS
Edited by Robert G. Wilson v, Jul 23 2004
a(33)-a(37) from Michael S. Branicky, Aug 03 2024
STATUS
approved