OFFSET
0,2
COMMENTS
MATHEMATICA
a = {1}; Do[l = 1; For[j = 1, j < n, j++, l = LCM[l, 6*j + 1]]; AppendTo[a, l], {n, 2, 20}]; a (* Stefan Steinerberger, Oct 07 2007 *)
Join[{1}, Table[LCM@@(6*Range[0, n]+1), {n, 20}]] (* Harvey P. Dale, Apr 30 2019 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jonathan Vos Post, Oct 05 2007
EXTENSIONS
More terms from Stefan Steinerberger, Oct 07 2007
STATUS
approved