This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A083268 #21 Jun 20 2024 02:37:44 %S A083268 1,2,6,12,60,30,420,840,2520,630,27720,4620,360360,90090,120120, %T A083268 720720,12252240,1531530,232792560,58198140,77597520,29099070, %U A083268 5354228880,892371480,26771144400,3346393050,80313433200,20078358300,2329089562800 %N A083268 a(n) is the lcm of related numbers to n (counted in A073757): related = {divisor-set, RRS}. %H A083268 Amiram Eldar, <a href="/A083268/b083268.txt">Table of n, a(n) for n = 1..1000</a> %F A083268 a(n) = lcm(n, A038610(n)). %e A083268 For n = 10: related terms = {1,2,5,10,3,7,9}; lcm(10,1,3,7,9) = 630 = a(10). %t A083268 a[n_] := LCM @@ Join[{n}, Select[Range[n], CoprimeQ[n, #] &]]; Array[a, 30] (* _Amiram Eldar_, Jun 20 2024 *) %o A083268 (PARI) a(n)=my(t=lcm([1..n])/n,g); while((g=gcd(t,n))>1,t/=g); t*n \\ _Charles R Greathouse IV_, Nov 14 2014 %Y A083268 Cf. A073757 (count), A083266 (sum), A083268 (LCM), A083267 (product), A038610. %K A083268 nonn %O A083268 1,2 %A A083268 _Labos Elemer_, May 13 2003