A217757 Product_{i=0..n} (i! + 1).

2, 4, 12, 84, 2100, 254100, 183206100, 923541950100, 37238134969982100, 13513011656042074430100, 49036030210457135734021310100, 1957361459740805606124917565020990100, 937579272951542930363610919638075856505150100

Offset

0,1

Links

Alois P. Heinz, Table of n, a(n) for n = 0..42

Formula

a(n) ~ c * A000178(n), where c = A238695 = Product_{k>=0} (1 + 1/k!) = 7.364308272367257256372772509631... . - Vaclav Kotesovec, Jul 20 2015

Maple

a:= proc(n) a(n):= `if`(n=0, 2, a(n-1)*(n!+1)) end:
seq(a(n), n=0..14);  # Alois P. Heinz, May 20 2013

Mathematica

Table[Product[i!+1, {i, 0, n}], {n, 0, 12}]  (* Geoffrey Critzer, May 04 2013 *)
Rest[FoldList[Times, 1, Range[0, 15]!+1]] (* Harvey P. Dale, May 28 2013 *)

Prog

(JavaScript)
function factorial(n) {
var i, c=1;
for (i=2; i<=n; i++) c*=i;
return c;
}
a=2;
for (j=1; j<10; j++) {
a*=(factorial(j)+1);
document.write(a+", ");
}

Crossrefs

Cf. A000142, A000178, A054640, A082480, A258325, A260231, A306729.

Sequence in context: A144295 A119489 A353743 * A053631 A319634 A217041

Adjacent sequences: A217754 A217755 A217756 * A217758 A217759 A217760

Keyword

nonn

Author

Jon Perry, Mar 23 2013

Status

approved