OFFSET
0,4
MATHEMATICA
a = Table[n! - Sum[(
Eulerian[n - j, j]), {j, 0, Floor[n/2]}], {n, 0, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Dec 02 2010
EXTENSIONS
Definition corrected by Roger L. Bagula, Dec 03 2010
STATUS
approved