OFFSET
0,2
MATHEMATICA
s = 0; lst = {s}; Do[s += n!!; AppendTo[lst, s], {n, 2, 38, 2}]; lst (* Zerinvary Lajos, Jul 13 2009 *)
Join[{0}, Accumulate[Table[2^x x!, {x, 20}]]] (* Harvey P. Dale, Apr 01 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Dec 02 2005
STATUS
approved