login
A369685
Least common multiple of the first n terms of A359804.
2
1, 1, 2, 6, 30, 60, 60, 60, 420, 1260, 2520, 2520, 2520, 27720, 27720, 27720, 27720, 27720, 138600, 138600, 138600, 138600, 138600, 138600, 277200, 277200, 277200, 277200, 277200, 277200, 1940400, 25225200, 75675600, 75675600, 75675600, 75675600, 75675600, 75675600
OFFSET
0,3
LINKS
FORMULA
a(0) = 1, and for n >0, a(n) = lcm(A359804(n), a(n-1)).
MATHEMATICA
nn = 40; c[_] = False; q[_] = 1;
Array[Set[{a[#], c[#]}, {1, True}] &, 2];
Set[{i, j}, {1, 2}]; m = 2; u = 3;
Do[
(k = q[#]; While[c[k #], k++]; k *= #; While[c[# q[#]], q[#]++]) &[
(p = 2; While[Divisible[i j, p], p = NextPrime[p]]; p)];
Set[{a[n], c[k], i, j, m}, {m, True, j, k, #}] &[LCM[m, k]];
If[k == u, While[c[u], u++]], {n, 3, nn}];
Array[a, nn] (* Michael De Vlieger, Jan 29 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved