

A117734


Absolute difference between the nth primorial and the nth compositorial number.


0



0, 1, 5, 2, 26, 6, 186, 18, 1518, 17070, 14970, 205050, 177330, 2873010, 43515570, 696699570, 696219090, 12540622290, 12531433110, 250812956310
(list;
graph;
refs;
listen;
history;
text;
internal format)



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 A224494 A095998
Adjacent sequences: A117731 A117732 A117733 * A117735 A117736 A117737


KEYWORD

nonn


AUTHOR

Roger L. Bagula, Apr 14 2006


EXTENSIONS

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


STATUS

approved



