login
This site is supported by donations to The OEIS Foundation.

 

Logo

Invitation: celebrating 50 years of OEIS, 250000 sequences, and Sloane's 75th, there will be a conference at DIMACS, Rutgers, Oct 9-10 2014.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A117736 factorial(n) - A049614(n). 0
0, 0, 1, 5, 20, 116, 696, 5016, 40128, 361152, 3611520, 39899520, 478794240, 6226813440, 87175388160, 1307630822400, 20922093158400, 355686731366400, 6402361164595200, 121645087867699200, 2432901757353984000 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,4

LINKS

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

FORMULA

a(n) =n!- A049614(n) = A000142(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[n! - cf[n], {n, 0, 20}]

CROSSREFS

Cf. A034386, A117683.

Sequence in context: A167145 A020039 A207972 * A028944 A054720 A208941

Adjacent sequences:  A117733 A117734 A117735 * A117737 A117738 A117739

KEYWORD

nonn

AUTHOR

Roger L. Bagula, Apr 14 2006

EXTENSIONS

Edited by the Assoc. Eds. of the OEIS, Jun 27 2010

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified September 2 19:51 EDT 2014. Contains 246367 sequences.