OFFSET
1,1
COMMENTS
This is similar to A000946 but starting a(1) = 5.
LINKS
Ben Meekins, Table of n, a(n) for n = 1..12
MATHEMATICA
a = {5}; Do[AppendTo[a, FactorInteger[Product[a[[k]], {k, n - 1}] + 1][[-1, 1]]], {n, 2, 11}]; a (* Michael De Vlieger, Sep 15 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ben Meekins, Sep 15 2015
STATUS
approved