OFFSET
0,3
LINKS
Michael De Vlieger, Table of n, a(n) for n = 0..6187
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
David James Sycamore, Jan 28 2024
STATUS
approved