A083268 a(n) is the lcm of related numbers to n (counted in A073757): related = {divisor-set, RRS}.

1, 2, 6, 12, 60, 30, 420, 840, 2520, 630, 27720, 4620, 360360, 90090, 120120, 720720, 12252240, 1531530, 232792560, 58198140, 77597520, 29099070, 5354228880, 892371480, 26771144400, 3346393050, 80313433200, 20078358300, 2329089562800

Offset: 1

Author

Labos Elemer, May 13 2003

Keywords

• nonn

Examples

			For n = 10: related terms = {1,2,5,10,3,7,9}; lcm(10,1,3,7,9) = 630 = a(10).
		

Links

• Amiram Eldar, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A073757 (count), A083266 (sum), A083268 (LCM), A083267 (product), A038610.

Programs

Mathematica

a[n_] := LCM @@ Join[{n}, Select[Range[n], CoprimeQ[n, #] &]]; Array[a, 30] (* Amiram Eldar, Jun 20 2024 *)

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

Formula

a(n) = lcm(n, A038610(n)).