This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A227143 Hankel determinants of order n of A225439(n): a(n)=det[A225439(i+j-2)], i,j=0..n, n>=0. 2
 1, 1, 12, 567, 122472, 126660105, 640190834712, 15987980408180508, 1985745116187976972608, 1231754497376142871049675940, 3826847477714307687323719819461000, 59670909707615018862830973519922857945375 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,3 LINKS Vaclav Kotesovec, Table of n, a(n) for n = 0..52 FORMULA a(n) ~ c * (9/4)^(n^2) * n^(31/36) / 3^(n/2), where c = 2^(5/12) * exp(1/36) * Pi^(1/3) / (A^(1/3) * 3^(7/36) * Gamma(1/3)^(2/3)) = 0.774669663248120327054918681212809967565811826042305406436705141... and A is the Glaisher-Kinkelin constant A074962. - Vaclav Kotesovec, Feb 24 2019 MAPLE with(LinearAlgebra): A225439 := proc(n) add(binomial(k, n-k)*3^(k)*(-1)^(n-k)*binomial(n+k-1, n-1), k=0..n) end: hank0:= (i, j)-> A225439(i+j-2): a:= proc(n) Determinant(Matrix(n, n, hank0)) end: seq(a(n), n=0..10); MATHEMATICA A225439[n_] := Sum[Binomial[k, n-k]*3^k*(-1)^(n-k)*Binomial[n+k-1, n-1], {k, 0, n}]; a[n_] := Det[Table[A225439[i+j-2], {i, n}, {j, n}]]; a[0] = 1; Table[ a[n], {n, 0, 11}] (* Jean-François Alcover, Nov 07 2016 *) CROSSREFS Cf. A225439, A101799, A101800, A165343, A165344, A059486. Sequence in context: A210816 A133415 A192602 * A274259 A192603 A192604 Adjacent sequences:  A227140 A227141 A227142 * A227144 A227145 A227146 KEYWORD nonn AUTHOR Karol A. Penson, Jul 02 2013 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified April 20 14:27 EDT 2019. Contains 322310 sequences. (Running on oeis4.)