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 A117734 #5 Mar 30 2012 17:34:20
%S A117734 0,1,5,2,26,6,186,18,1518,17070,14970,205050,177330,2873010,43515570,
%T A117734 696699570,696219090,12540622290,12531433110,250812956310
%N A117734 Absolute difference between the n-th primorial and the n-th compositorial number.
%F A117734 a(n) = | A034386(n)-A049614(n)| .
%t A117734 f[n_] := If[PrimeQ[n] == True, 1, n] cf[0] = 1; cf[n_Integer?Positive] := cf[n] = f[n]*cf[n - 1] g[n_] := If[PrimeQ[n] == True, n, 1] p[0] = 1; p[n_Integer?Positive] := p[n] = g[n]*p[n - 1] Table[Abs[ -cf[n] + p[n]], {n, 1, 20}]
%Y A117734 Cf. A034386, A117683.
%K A117734 nonn
%O A117734 1,3
%A A117734 _Roger L. Bagula_, Apr 14 2006
%E A117734 Offset and A-number corrected; comment rewritten; information duplicating A117733 removed - The Assoc Eds of the OEIS, Oct 20 2010