|
%I #26 Apr 16 2023 20:27:39
%S 4,6,360,12,1680,18,4620,491400,30,1884960,29640,42,45540,12994800,
%T 45821160,60,89369280,164220,72,211110900,265680,195878760,
%U 83434347360,485100,102,578760,108,683760,97661867698205811000,1073280,1799665560
%N LCM of composite numbers falling between n-th and (n+1)-st primes.
%H T. D. Noe, <a href="/A056831/b056831.txt">Table of n, a(n) for n = 2..1000</a>
%F a(A029707(n)) = A014574(n). - _Michel Marcus_, Mar 22 2020
%t Table[LCM@@Range[Prime[n]+1, Prime[n+1]-1], {n,2,50}]
%o (PARI) a(n) = my(x=prime(n)+1); for (i=x, prime(n+1)-1, x = lcm(i, x)); x; \\ _Michel Marcus_, Mar 22 2020
%o (Python)
%o from math import lcm
%o from sympy import prime
%o def A056831(n): return lcm(*range(prime(n)+1,prime(n+1))) # _Chai Wah Wu_, Apr 16 2023
%Y Cf. A001359, A014574, A029707.
%K nonn,easy
%O 2,1
%A _Labos Elemer_, Aug 30 2000
%E Edited by _Robert G. Wilson v_, Apr 12 2002
|
