A059740 Erroneous version of A005160.
1, 0, 1, 2, 3, 0, 12, 40, 100, 0, 1225, 6460, 28812, 0, 1037232, 9779616
Offset: 1
Keywords
Links
- D. P. Robbins, Symmetry classes of alternating sign matrices, arXiv:math.CO/0008045
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
G.f. = 1 + x + 2*x^2 + 7*x^3 + 42*x^4 + 429*x^5 + 7436*x^6 + 218348*x^7 + ...
a:=List([0..18],n->Product([0..n-1],k->Factorial(3*k+1)/Factorial(n+k)));; Print(a); # Muniru A Asiru, Jan 02 2019
A005130 := proc(n) local k; mul((3*k+1)!/(n+k)!,k=0..n-1); end; # Bill Gosper's approximation (for n>0): a_prox := n -> (2^(5/12-2*n^2)*3^(-7/36+1/2*(3*n^2))*exp(1/3*Zeta(1,-1))*Pi^(1/3)) /(n^(5/36)*GAMMA(1/3)^(2/3)); # Peter Luschny, Aug 14 2014
f[n_] := Product[(3k + 1)!/(n + k)!, {k, 0, n - 1}]; Table[ f[n], {n, 0, 17}] (* Robert G. Wilson v, Jul 15 2004 *) a[ n_] := If[ n < 0, 0, Product[(3 k + 1)! / (n + k)!, {k, 0, n - 1}]]; (* Michael Somos, May 06 2015 *)
{a(n) = if( n<0, 0, prod(k=0, n-1, (3*k + 1)! / (n + k)!))}; /* Michael Somos, Aug 30 2003 */
{a(n) = my(A); if( n<0, 0, A = Vec( (1 - (1 - 9*x + O(x^(2*n)))^(1/3)) / (3*x)); matdet( matrix(n, n, i, j, A[i+j-1])) / 3^binomial(n,2))}; /* Michael Somos, Aug 30 2003 */
from math import prod, factorial def A005130(n): return prod(factorial(3*k+1) for k in range(n))//prod(factorial(n+k) for k in range(n)) # Chai Wah Wu, Feb 02 2022
A006366 := proc(n) local i, j; mul((3*i - 1)*mul((n + i + j - 1)/(2*i + j - 1), j = i .. n)/(3*i - 2), i = 1 .. n) end;
Table[Product[(3i-1)/(3i-2) Product[(n+i+j-1)/(2i+j-1),{j,i,n}],{i,n}],{n,0,20}] (* Harvey P. Dale, Apr 17 2013 *)
a(n)=prod(i=0,n-1,(3*i+2)*(3*i)!/(n+i)!)
a(17) = 1 + 1 + 2 + 7 + 42 + 429 + 7436 + 218348 + 10850216 + 911835460 + 129534272700 + 31095744852375 + 12611311859677500 + 8639383518297652500 + 9995541355448167482000 + 19529076234661277104897200 + 64427185703425689356896743840 + 358869201916137601447486156417296.
Table[Sum[Product[(3 k + 1)!/(j + k)!, {k, 0, j - 1}], {j, 0, n}], {n, 0, 20}] (* Vaclav Kotesovec, Oct 26 2017 *) Accumulate[Table[Product[(3k+1)!/(n+k)!,{k,0,n-1}],{n,0,20}]] (* Harvey P. Dale, Feb 06 2019 *)
Comments