OFFSET
1,1
MATHEMATICA
a[1]=2; a[n_]:=a[n]=(For[m=a[n-1], Union[Table[PrimeQ[2 m^k-1], {k, n}]]!={True}, m++]; m)
PROG
(PARI) a(n)=my(m=2); while(1, for(k=1, n, if(!ispseudoprime(2*m^k-1), m++; next(2))); return(m)) \\ Charles R Greathouse IV, Oct 01 2013
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Farideh Firoozbakht, Sep 27 2013
EXTENSIONS
a(8) from Giovanni Resta, Oct 01 2013
a(9) from Tyler Busby, Jan 06 2023
STATUS
approved