login
A174992
a(n) = n! - A000800(n).
0
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
MATHEMATICA
a = Table[n! - Sum[(
Eulerian[n - j, j]), {j, 0, Floor[n/2]}], {n, 0, 30}]
CROSSREFS
Sequence in context: A052751 A367284 A249934 * A182541 A241839 A218183
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Dec 02 2010
EXTENSIONS
Definition corrected by Roger L. Bagula, Dec 03 2010
STATUS
approved