OFFSET
1,3
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
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