Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #13 Feb 03 2024 10:12:21
%S 1,1,2,6,30,60,60,60,420,1260,2520,2520,2520,27720,27720,27720,27720,
%T 27720,138600,138600,138600,138600,138600,138600,277200,277200,277200,
%U 277200,277200,277200,1940400,25225200,75675600,75675600,75675600,75675600,75675600,75675600
%N Least common multiple of the first n terms of A359804.
%H Michael De Vlieger, <a href="/A369685/b369685.txt">Table of n, a(n) for n = 0..6187</a>
%F a(0) = 1, and for n >0, a(n) = lcm(A359804(n), a(n-1)).
%t nn = 40; c[_] = False; q[_] = 1;
%t Array[Set[{a[#], c[#]}, {1, True}] &, 2];
%t Set[{i, j}, {1, 2}]; m = 2; u = 3;
%t Do[
%t (k = q[#]; While[c[k #], k++]; k *= #; While[c[# q[#]], q[#]++]) &[
%t (p = 2; While[Divisible[i j, p], p = NextPrime[p]]; p)];
%t Set[{a[n], c[k], i, j, m}, {m, True, j, k, #}] &[LCM[m, k]];
%t If[k == u, While[c[u], u++]], {n, 3, nn}];
%t Array[a, nn] (* _Michael De Vlieger_, Jan 29 2024 *)
%Y Cf. A003418, A359804, A368901, A369686.
%K nonn
%O 0,3
%A _David James Sycamore_, Jan 28 2024