A174992 a(n) = n! - A000800(n).

0, 0, 1, 4, 19, 107, 682, 4915, 39871, 361138, 3621531, 39884367, 478847750, 6226248403, 87174202427, 1307651621142, 20922657286067, 355686620215179, 6402368573492818, 121645066483568099, 2432901775271051559, 51090940513901948778

Offset

0,4

Links

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

Mathematica

a = Table[n! - Sum[(
    Eulerian[n - j, j]), {j, 0, Floor[n/2]}], {n, 0, 30}]

Crossrefs

Cf. A000800, A008292.

Sequence in context: A052751 A367284 A249934 * A182541 A241839 A218183

Adjacent sequences: A174989 A174990 A174991 * A174993 A174994 A174995

Keyword

nonn

Author

Roger L. Bagula, Dec 02 2010

Extensions

Definition corrected by Roger L. Bagula, Dec 03 2010

Status

approved