A195287 a(n) = (A091137(n)/n!) * Integral_{u=-1..1} u*(u+1)*...*(u+n-1) du.
2, 0, 4, 8, 232, 448, 18224, 35424, 1036064, 2025472, 130960832, 257072000, 689908475264, 1358275350528, 8031885897472, 15847920983552, 7981032500085248, 15774370258485248, 12448755354530366464
Offset: 0
Keywords
References
- P. Curtz, Intégration numérique des systèmes differentiels à conditions initiales, Centre de Calcul Scientifique de l'Armement, Arcueil, 1969.
Programs
-
Maple
A195287 := proc(n) mul(u+i,i=0..n-1) ; int(%,u=-1..1) ; %/n!*A091137(n) ; end proc: seq(A195287(n),n=0..20) ; # R. J. Mathar, Oct 02 2011
-
Mathematica
(* a7 = A091137 *) a7[n_] := a7[n] = Product[d, {d, Select[Divisors[n] + 1, PrimeQ]}]*a7[n-1]; a7[0]=1; a[n_] := a7[n]/n!*Integrate[ Pochhammer[u, n], {u, -1, 1}]; Table[a[n], {n, 0, 18}] (* Jean-François Alcover, Aug 13 2012 *)
Comments