A117734 Absolute difference between the n-th primorial and the n-th compositorial number.

0, 1, 5, 2, 26, 6, 186, 18, 1518, 17070, 14970, 205050, 177330, 2873010, 43515570, 696699570, 696219090, 12540622290, 12531433110, 250812956310

Offset

1,3

Links

Table of n, a(n) for n=1..20.

Formula

a(n) = | A034386(n)-A049614(n)| .

Mathematica

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}]

Crossrefs

Cf. A034386, A117683.

Sequence in context: A128712 A202141 A100080 * A007572 A297812 A360546

Adjacent sequences: A117731 A117732 A117733 * A117735 A117736 A117737

Keyword

nonn

Author

Roger L. Bagula, Apr 14 2006

Extensions

Offset and A-number corrected; comment rewritten; information duplicating A117733 removed - The Assoc Eds of the OEIS, Oct 20 2010

Status

approved