OFFSET
0,2
LINKS
Paul D. Hanna, Table of n, a(n) for n = 0..50
FORMULA
a(n) = A361550(2*n,n) for n >= 0.
a(n) ~ c * d^n / n^2, where d = 51.1751... and c = 0.12624... - Vaclav Kotesovec, Mar 19 2023
PROG
(PARI) {A361550(n, k) = my(A=[1]); for(i=1, n, A = concat(A, 0);
A[#A] = polcoeff(x*y - prod(m=1, #A, (1 - x^m) * (1 - x^m*Ser(A)) * (1 - x^(m-1)/Ser(A)) * (1 - x^(2*m-1)*Ser(A)^2) * (1 - x^(2*m-1)/Ser(A)^2) ), #A-1) );
polcoeff(polcoeff(Ser(A), n, x), k, y)}
for(n=0, 20, print1(A361550(2*n, n), ", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Mar 19 2023
STATUS
approved