A082993: more terms ?

[Giovanni Resta]

zak seidov wrote:
> Using Mmca
> <<NumberTheory`NumberTheoryFunctions`
> a=2;s=a;Reap[Sow[a];Do[b=NextPrime[s];Sow[b];s=s*b,{10}]][[2,1]]
> it's easy to find
> 2,3,7,43,1811,3270667,10697259354227,
> 114431357691543566765996431,
> 13094535623129987017538646614449662873664453962870113,
> But are the last two terms "safe" primes?
Yes, Mathematica can certify that they are primes using the
function ProvablePrimeQ contained in  NumberTheory`PrimeQ`.

Giovanni