OFFSET
1,1
EXAMPLE
Initial segments of Euclid-Mullin sequences provided by
a[33]=3132139, a[34] and a[35] initial values:
{3132139,2,3,5,7,11,13,94058134171}}
{3282289,2,3,5,7,11,13,59}},
{3372379,2,3,5,7,11,13,29}}
MATHEMATICA
b[x_] :=First[Flatten[FactorInteger[Apply[Times, Table[b[j], {j, 1, x - 1}]] +1]]]; b[1] = 1; Do[b[1] = Prime[j], el=8; If[Equal[Table[b[w], {w, 2, 7}], {2, 3, 5, 7, 11, 13}], Print[{j, Table[b[w], {w, 1, el}]}]], {j, 100000, 1000000}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, May 03 2004
STATUS
approved