A015095 - OEIS

%I #40 Nov 17 2019 09:29:46

%S 1,1,11,1121,1123331,11235577641,1123580257785051,

%T 1123582505161487376561,11235827298801257861061293171,

%U 1123582752351801734250808539216885881

%N Carlitz-Riordan q-Catalan numbers (recurrence version) for q=10.

%H Seiichi Manyama, <a href="/A015095/b015095.txt">Table of n, a(n) for n = 0..45</a>

%H Robin Sulzgruber, <a href="https://doi.org/10.25365/thesis.30616">The Symmetry of the q,t-Catalan Numbers</a>, Thesis, University of Vienna, 2013.

%F a(n+1) = Sum_{i=0..n} q^i*a(i)*a(n-i) with q=10 and a(0)=1.

%F G.f. satisfies: A(x) = 1 / (1 - x*A(10*x)) = 1/(1-x/(1-10*x/(1-10^2*x/(1-10^3*x/(1-...))))) (continued fraction). - _Seiichi Manyama_, Dec 27 2016

%e G.f. = 1 + x + 11*x^2 + 1121*x^3 + 1123331*x^4 + 11235577641*x^5 + ...

%t a[n_] := a[n] = Sum[10^i*a[i]*a[n -i -1], {i, 0, n -1}]; a[0] = 1; Array[a, 16, 0] (* _Robert G. Wilson v_, Dec 24 2016 *)

%t m = 10; ContinuedFractionK[If[i == 1, 1, -10^(i - 2) x], 1, {i, 1, m}] + O[x]^m // CoefficientList[#, x]& (* _Jean-François Alcover_, Nov 17 2019 *)

%o (Ruby)

%o def A(q, n)

%o   ary = [1]

%o   (1..n).each{|i| ary << (0..i - 1).inject(0){|s, j| s + q ** j * ary[j] * ary[i - 1 - j]}}

%o   ary

%o end

%o def A015095(n)

%o   A(10, n)

%o end # _Seiichi Manyama_, Dec 24 2016

%Y Cf. A227543.

%Y Cf. A015108 (q=-11), A015107 (q=-10), A015106 (q=-9), A015105 (q=-8), A015103 (q=-7), A015102 (q=-6), A015100 (q=-5), A015099 (q=-4), A015098 (q=-3), A015097 (q=-2), A090192 (q=-1), A000108 (q=1), A015083 (q=2), A015084 (q=3), A015085 (q=4), A015086 (q=5), A015089 (q=6), A015091 (q=7), A015092 (q=8), A015093 (q=9), this sequence (q=10), A015096 (q=11).

%Y Column k=10 of A090182, A290759.

%K nonn

%O 0,3

%A _Olivier Gérard_

%E Offset changed to 0 by _Seiichi Manyama_, Dec 24 2016