cp's OEIS Frontend

A056835 a(n) = lcm(s(1),...,s(n)) where {s(n)} = A024619 and a(0) = 1.

%I A056835 #21 Dec 25 2015 21:40:31
%S A056835 1,6,30,60,420,420,1260,1260,1260,13860,27720,360360,360360,360360,
%T A056835 360360,6126120,6126120,6126120,116396280,116396280,116396280,
%U A056835 116396280,116396280,116396280,2677114440,5354228880,26771144400
%N A056835 a(n) = lcm(s(1),...,s(n)) where {s(n)} = A024619 and a(0) = 1.
%H A056835 Robert Israel, <a href="/A056835/b056835.txt">Table of n, a(n) for n = 0..3930</a>
%e A056835 Overlaps with but is different from A003418 and A051451. E.g., 840 or 720720 are not here, but 1260 and 13860 are here, not there.
%p A056835 N:= 100: # to get a(0) to a(N)
%p A056835 A[0]:= 1:
%p A056835 m:= 0:
%p A056835 for s from 2 while m < N do
%p A056835 if nops(numtheory:-factorset(s)) > 1 then
%p A056835   m:= m+1;
%p A056835   A[m]:= ilcm(A[m-1],s);
%p A056835 fi
%p A056835 od:
%p A056835 seq(A[i],i=0..N); # _Robert Israel_, Dec 20 2015
%t A056835 s = Select[Range@ 50, ! PrimePowerQ@ # &]; Table[LCM @@ Take[s, n], {n, Length@ s}] (* _Michael De Vlieger_, Dec 20 2015 *)
%Y A056835 Cf. A024619, A003418, A051451. Range of values is A056836. All members belong to A025487.
%K A056835 nonn
%O A056835 0,2
%A A056835 _Labos Elemer_, Aug 30 2000
%E A056835 Link typos corrected, cross-reference added by _Matthew Vandermast_, Nov 13 2010