OFFSET
1,1
LINKS
Carlos Rivera, The Prime Puzzles & Problems connection.
EXAMPLE
a(6) = 6787314293760 because {2,3,5,7,11,13} = {prime(1),prime(2),..., prime(6)} is the set of prime factors of 6787314293760, all six numbers 2*6787314293760-1,3*6787314293760-1, 5*6787314293760-1,7*6787314293760-1,11*6787314293760-1 & 13*6787314293760-1 are prime and 6787314293760 is the first number with such properties.
MATHEMATICA
a[n_] := Block[{p = Prime@Range@n, stp, k}, stp = k = Times @@ p; While[First /@ FactorInteger[k] != p || ! AllTrue[p k - 1, PrimeQ], k += stp]; k]; Array[a, 5] (* Giovanni Resta, Apr 17 2017 *)
CROSSREFS
KEYWORD
hard,nonn
AUTHOR
Farideh Firoozbakht, Nov 05 2005
EXTENSIONS
a(7)-a(8) from Giovanni Resta, Apr 14 2017
STATUS
approved