OFFSET
1,1
LINKS
Anders Hellström, Ruby program
MATHEMATICA
L={2}; While[Length@L < 15, s= LCM@@ (1 + Times @@@ Subsets[L]); p = NextPrime@ L[[-1]]; While[ Mod[s, p] == 0, p = NextPrime@ p]; AppendTo[L, p]]; L (* inefficient, Giovanni Resta, Aug 19 2015 *)
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Anders Hellström, Aug 18 2015
EXTENSIONS
a(14)-a(24) from Giovanni Resta, Aug 19 2015
STATUS
approved