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 A068510 #14 Aug 28 2021 11:35:13 %S A068510 0,0,0,6,30,30,210,630,2310,2310,25410,25410,330330,330330,330330, %T A068510 690690,11741730,11741730,223092870,223092870,223092870,223092870, %U A068510 5131136010,5131136010,26548051530,26548051530,80090340330,80090340330 %N A068510 a(n) = lcm(1,...,n) - (product of primes <= n). %D A068510 Tenenbaum, G. (2015). Introduction to analytic and probabilistic number theory, 3rd ed., American Mathematical Soc. See page 22. %H A068510 T. D. Noe, <a href="/A068510/b068510.txt">Table of n, a(n) for n = 1..200</a> %p A068510 a[1] := 0:a[2] := 0:l := 2:p := 3:pp := 2:for i from 3 to 50 do l := ilcm(l,i): if(p=i) then pp := pp*p:p := nextprime(p):end if: a[i] := l-pp:end do:q := seq(a[j],j=1..50); %t A068510 f[n_] := (LCM @@ Table[i, {i, n}] - Product[Prime[i], {i, PrimePi[n]}]); Table[f[n], {n, 30}] %Y A068510 Cf. A059794, A068511. %K A068510 nonn,easy %O A068510 1,4 %A A068510 _N. J. A. Sloane_, Mar 21 2002 %E A068510 More terms from _Sascha Kurz_, Mar 23 2002