A079521 -id:A079521 - cp's OEIS frontend

A079513 Triangular array (a Riordan array) related to tennis ball problem, read by rows.

1, 0, 1, 1, 1, 1, 0, 3, 2, 1, 6, 6, 6, 3, 1, 0, 22, 16, 10, 4, 1, 53, 53, 53, 31, 15, 5, 1, 0, 211, 158, 105, 52, 21, 6, 1, 554, 554, 554, 343, 185, 80, 28, 7, 1, 0, 2306, 1752, 1198, 644, 301, 116, 36, 8, 1, 6362, 6362, 6362, 4056, 2304, 1106, 462, 161, 45, 9, 1

Offset: 0

N. J. A. Sloane, Jan 22 2003

Riordan array (2/(2-x*c(x)+x*c(-x)), x*c(x)), with c(x) the g.f. of Catalan numbers (A000108). - Ralf Stephan, Dec 29 2013

			Triangle starts
     1;
     0,    1;
     1,    1,    1;
     0,    3,    2,    1;
     6,    6,    6,    3,    1;
     0,   22,   16,   10,    4,    1;
    53,   53,   53,   31,   15,    5,   1;
     0,  211,  158,  105,   52,   21,   6,   1;
   554,  554,  554,  343,  185,   80,  28,   7,  1;
     0, 2306, 1752, 1198,  644,  301, 116,  36,  8, 1;
  6362, 6362, 6362, 4056, 2304, 1106, 462, 161, 45, 9, 1;

G. C. Greubel, Rows n=0..100 of triangle, flattened
D. Merlini, R. Sprugnoli and M. C. Verri, The tennis ball problem, J. Combin. Theory, A 99 (2002), 307-344 (Table A.2).

First column is A066357 interspersed with 0's, 2nd column gives A079514.

Cf. A079514, A079515, A079516, A079517, A079518, A079519, A079520, A079521.

c[t_]:= (1-Sqrt[1-4*t])/(2*t); d[t_]:= (1-(1+2*t)*Sqrt[1-4*t] -(1-2*t)*Sqrt[1+4*t] +Sqrt[1-16*t^2])/(4*t^2); g[t_, r_]:= d[t]*(t*c[t])^r; Table[SeriesCoefficient[Series[g[t, k], {t, 0, n}], n], {n, 0, 10}, {k, 0, n}]//Flatten (* G. C. Greubel, Jan 16 2019 *)

Edited and more terms added by Ralf Stephan, Dec 29 2013

A079522 Diagonal of triangular array in A079520.

Original entry on oeis.org

0, 1, 3, 10, 31, 105, 343, 1198, 4056, 14506, 50350, 183284, 647809, 2390121, 8564543, 31933830, 115664164, 434920398, 1588917802, 6016012236, 22134533070, 84289034154, 311957090678, 1193717733900, 4440128821376, 17060985356980, 63732279047612, 245768668712296, 921501110779045

Offset: 0

N. J. A. Sloane, Jan 22 2003

			G.f. = 0 + 1*t + 3*t^2 + 10*t^3 + 31*t^4 + ... - _G. C. Greubel_, Jan 17 2019

G. C. Greubel, Table of n, a(n) for n = 0..1000
D. Merlini, R. Sprugnoli and M. C. Verri, The tennis ball problem, J. Combin. Theory, A 99 (2002), 307-344. (Fig A.3)

Also diagonal of triangular array in A079521.

Cf. A079513, A079520.

F := proc(t) (1-4*t^2-(1+2*t)*sqrt(1-4*t)-(1-2*t)*sqrt(1+4*t)+ sqrt(1-16*t^2))/4/t^3 ; end: d := proc(t) 1+t*F(t) ; end: C := proc(t) (1-sqrt(1-4*t))/2/t ; end: A079521 := proc(h,r) d(t)*t^(r+1)*(C(t))^(r+3) ; expand(%) ; coeftayl(%,t=0,h) ; end: A079522 := proc(n) A079521(n,0) ; end: for n from 0 do printf("%d\n",A079522(n)) ; od: # R. J. Mathar, Sep 20 2009

c[t_]:= (1-Sqrt[1-4*t])/(2*t); d[t_]:= (1-(1+2*t)*Sqrt[1-4*t] -(1-2*t)* Sqrt[1+4*t] +Sqrt[1-16*t^2])/(4*t^2); g[t_, r_]:= d[t]*(t*c[t])^r*(t*c[t]^3 +2*r*c[t]); CoefficientList[Series[g[t, 0], {t, 0, 50}], t] (* G. C. Greubel, Jan 17 2019 *)

Let c, d, and g be given by: c(t) = (1-sqrt(1-4*t))/(2*t), d(t) = (1-(1+ 2*t)*sqrt(1-4*t) -(1-2*t)*sqrt(1+4*t) +sqrt(1-16*t^2))/(4*t^2), and
g(t, r) = d(t)*(t*c(t))^r*(t*c(t)^3 + 2*r*c(t)) then the g.f. is given by the expansion of g(t,0). - G. C. Greubel, Jan 17 2019
a(n) ~ 2^(2*n + 1/2) * (9*sqrt(2) - 10 + (41*sqrt(2) - 58)*(-1)^n) / (sqrt(Pi) * n^(3/2)). - Vaclav Kotesovec, Aug 31 2025

More terms from R. J. Mathar, Sep 20 2009

Terms a(23) onward added by G. C. Greubel, Jan 17 2019

cp's OEIS Frontend

A079513 Triangular array (a Riordan array) related to tennis ball problem, read by rows.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Extensions