OFFSET
0,2
MATHEMATICA
a = {1, 2}; Do[AppendTo[a, FactorInteger[Length[a]*a[[ -1]] + 1][[ -1, 1]]], {70}]; a (* Stefan Steinerberger, Oct 30 2007 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Oct 28 2007
EXTENSIONS
More terms from Stefan Steinerberger, Oct 30 2007
STATUS
approved