OFFSET
1,1
COMMENTS
Conjecture: a(n)-1 has prime(n)-1 divisors. Subsidiary sequence: Number of primes of the form 2*p*q*r*...+1 where p, q, r, etc. are distinct odd primes < n.
EXAMPLE
a(13) = 6007 = 2*3*7*11*13 + 1, as 2*5*7*11*13 + 1, etc. are composite.
MATHEMATICA
<<DiscreteMath`; <<NumberTheory`; Do[l = Select[Map[Times @@ #&, Subsets[Range[n]]], SquareFreeQ]; Print[Max[Select[Map[ #+1&, l], PrimeQ]]], {n, 1, 30}] (* Ryan Propper, Aug 13 2005 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Mar 26 2004
EXTENSIONS
More terms from Ryan Propper, Aug 13 2005
STATUS
approved