|
Search: id:A117736
|
|
|
| A117736 |
|
Difference of n! and A117683: Factorial and Compositorial. |
|
+0
1
|
|
| 0, 0, 1, 5, 20, 116, 696, 5016, 40128, 361152, 3611520, 39899520, 478794240, 6226813440, 87175388160, 1307630822400, 20922093158400, 355686731366400, 6402361164595200, 121645087867699200, 2432901757353984000
(list; graph; listen)
|
|
|
OFFSET
|
0,4
|
|
|
FORMULA
|
a(n) =n!-A117683[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[n! - cf[n], {n, 0, 20}]
|
|
CROSSREFS
|
Cf. A034386, A117683.
Sequence in context: A109500 A137961 A020039 this_sequence A028944 A054720 A110373
Adjacent sequences: A117733 A117734 A117735 this_sequence A117737 A117738 A117739
|
|
KEYWORD
|
nonn,uned,probation
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Apr 14 2006
|
|
|
Search completed in 0.002 seconds
|
