A217757 Product_{i=0..n} (i! + 1).
2, 4, 12, 84, 2100, 254100, 183206100, 923541950100, 37238134969982100, 13513011656042074430100, 49036030210457135734021310100, 1957361459740805606124917565020990100, 937579272951542930363610919638075856505150100
Offset: 0
Keywords
Links
- Alois P. Heinz, Table of n, a(n) for n = 0..42
Programs
-
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+", "); }
-
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 *)
Formula
a(n) ~ c * A000178(n), where c = A238695 = Product_{k>=0} (1 + 1/k!) = 7.364308272367257256372772509631... . - Vaclav Kotesovec, Jul 20 2015
Comments