A131940 Least common multiple of {1, 7, 13, 19, 25, ..., (6n+1)} (A016921).
1, 7, 91, 1729, 43225, 1339975, 49579075, 2131900225, 14923301575, 164156317325, 10013535356825, 670906868907275, 48976201430231075, 3869119912988254925, 65775038520800333725, 65775038520800333725, 6380178736517632371325
Offset: 0
Programs
-
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 *)
Extensions
More terms from Stefan Steinerberger, Oct 07 2007
Comments