|
%I #15 Sep 08 2022 08:45:15
%S 1,2,12,60,2520,27720,720720,12252240,232792560,80313433200,
%T 2329089562800,144403552893600,5342931457063200,219060189739591200,
%U 9419588158802421600,3099044504245996706400,164249358725037825439200,9690712164777231700912800
%N Least common multiple of 1, 2, 3, ..., prime(n)-1.
%H Robert Israel, <a href="/A099795/b099795.txt">Table of n, a(n) for n = 1..342</a>
%F a(n) = (A094998(n)-1) / A099796(n).
%F a(n) = A038610(A000040(n)). - _Anthony Browne_, Jul 19 2016
%p Primes:= select(isprime, [2,$3..100]):
%p seq(ilcm($2..Primes[i]-1),i=1..nops(Primes)); # _Robert Israel_, Jul 19 2016
%t LCM@@Range[#]&/@(Prime[Range[20]]-1) (* _Harvey P. Dale_, Jan 30 2015 *)
%o (Magma) [Lcm([2..p-1]): p in PrimesUpTo(70)]; // _Bruno Berselli_, Feb 06 2015
%Y Cf. A094998, A099794, A099796, A038610, A000040.
%K nonn
%O 1,2
%A _Ray Chandler_, Oct 29 2004
%E a(18) from _Bruno Berselli_, Feb 06 2015
|
