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

Author

Roger L. Bagula, Dec 02 2010

Keywords

• nonn

Crossrefs

Cf. A000800, A008292.

Programs

Mathematica

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

Extensions

Definition corrected by Roger L. Bagula, Dec 03 2010