[go: up one dir, main page]
login
The OEIS is supported by the many generous donors to the OEIS Foundation.
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
Search: a137962 -id:a137962
Displaying 1-5 of 5 results found.
page 1
     Sort: relevance | references | number | modified | created      Format: long | short | data
A137953
G.f. satisfies A(x) = 1 + x*(1 + x*A(x)^2)^3.
+10
9
1, 1, 3, 9, 34, 132, 546, 2327, 10191, 45534, 206788, 951723, 4429182, 20808186, 98550468, 470038119, 2255684699, 10883852112, 52769785320, 256960840946, 1256147650818, 6162349332204, 30328107189312, 149698391878458
(list; graph; refs; listen; history; text; internal format)
OFFSET
0,3
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..200
FORMULA
G.f.: A(x) = 1 + x*B(x)^3 where B(x) is the g.f. of A137952.
a(n) = Sum_{k=0..n-1} C(3*(n-k),k)/(n-k) * C(2*k,n-k-1) for n>0 with a(0)=1. - Paul D. Hanna, Jun 16 2009
Recurrence: 5*n*(5*n-3)*(5*n-2)*(5*n+1)*(5*n+4)*(2948400*n^11 - 80922240*n^10 + 991552680*n^9 - 7191167904*n^8 + 34388915791*n^7 - 113938412552*n^6 + 266574560812*n^5 - 439214051186*n^4 + 497527715029*n^3 - 367402366838*n^2 + 158427508008*n - 30063700800)*a(n) = -240*(5*n-1)*(3402000*n^13 - 102564900*n^12 + 1682146080*n^11 - 16176231033*n^10 + 95359496344*n^9 - 359981654612*n^8 + 893831335718*n^7 - 1468770570635*n^6 + 1566970769558*n^5 - 1019176919948*n^4 + 331927521052*n^3 + 34505928*n^2 - 32180612832*n + 6541274880)*a(n-1) + 180*(884520000*n^16 - 26930232000*n^15 + 372745486800*n^14 - 3118060887120*n^13 + 17644263763548*n^12 - 71507400823524*n^11 + 214013670957835*n^10 - 480132169105811*n^9 + 810380315383846*n^8 - 1022562903644722*n^7 + 947982058983979*n^6 - 624324084479227*n^5 + 273663045967416*n^4 - 68343334466444*n^3 + 4273926176256*n^2 + 2065304121408*n - 381518968320)*a(n-2) + 72*(5890903200*n^16 - 188191699920*n^15 + 2743292998800*n^14 - 24248455085592*n^13 + 145518104758338*n^12 - 628264374415281*n^11 + 2014705595228766*n^10 - 4876859081303636*n^9 + 8950855221646414*n^8 - 12378944029917433*n^7 + 12665670452628658*n^6 - 9249292270917382*n^5 + 4496305419163048*n^4 - 1229711760456116*n^3 + 68797455703176*n^2 + 53468550934560*n - 10544040864000)*a(n-3) + 72*(5731689600*n^16 - 191702972160*n^15 + 2927459413440*n^14 - 27105381081216*n^13 + 170350803352728*n^12 - 770345146059408*n^11 + 2589617705669352*n^10 - 6581794624393248*n^9 + 12710327685293639*n^8 - 18531898603387194*n^7 + 20012311600272546*n^6 - 15421584075698196*n^5 + 7904537517669183*n^4 - 2290793383663938*n^3 + 159318295564312*n^2 + 94065554487360*n - 19593691084800)*a(n-4) + 72*(2*n-9)*(3*n-11)*(3*n-7)*(6*n-25)*(6*n-23)*(2948400*n^11 - 48489840*n^10 + 344492280*n^9 - 1422208584*n^8 + 3817772239*n^7 - 6909787807*n^6 + 8311308487*n^5 - 6272196721*n^4 + 2621759746*n^3 - 403021048*n^2 - 67705152*n + 22579200)*a(n-5). - Vaclav Kotesovec, Mar 25 2014
a(n) ~ sqrt(3*s*(s-1)*(3*s-2)/(5*s-3)) / (2*sqrt(Pi)*n^(3/2)*r^n), where s = 1.7888356349988794022183... is the root of the equation 216*(s-1)^2 = s*(5*s-6)^4, and r = 1/(s*(5*s-6)) = 0.189873988477346598... - Vaclav Kotesovec, Mar 25 2014
MATHEMATICA
Flatten[{1, Table[Sum[Binomial[3*(n-k), k]/(n-k)*Binomial[2*k, n-k-1], {k, 0, n-1}], {n, 1, 20}]}] (* Vaclav Kotesovec after Paul D. Hanna, Mar 25 2014 *)
PROG
(PARI) {a(n)=local(A=1+x*O(x^n)); for(i=0, n, A=1+x*(1+x*A^2)^3); polcoeff(A, n)}
(PARI) a(n)=if(n==0, 1, sum(k=0, n-1, binomial(3*(n-k), k)/(n-k)*binomial(2*k, n-k-1))) \\ Paul D. Hanna, Jun 16 2009
CROSSREFS
Cf. A137952, A137954; A137957, A137962, A137969.
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Feb 26 2008
STATUS
approved
A137957
G.f. satisfies A(x) = 1 + x*(1 + x*A(x)^4)^3.
+10
7
1, 1, 3, 15, 79, 468, 2895, 18670, 123765, 838860, 5785503, 40473729, 286504086, 2048388112, 14770313397, 107290913232, 784380664232, 5766985753620, 42614014459911, 316304429143995, 2357275139670183, 17631888703154172
(list; graph; refs; listen; history; text; internal format)
OFFSET
0,3
LINKS
Table of n, a(n) for n=0..21.
FORMULA
G.f.: A(x) = 1 + x*B(x)^3 where B(x) is the g.f. of A137958.
a(n) = Sum_{k=0..n-1} C(3*(n-k),k)/(n-k) * C(4*k,n-k-1) for n>0 with a(0)=1. - Paul D. Hanna, Jun 16 2009
a(n) ~ sqrt(3*s*(1-s)*(4-5*s) / ((88*s - 72)*Pi)) / (n^(3/2) * r^n), where r = 0.1243879037293364492255197677726812528516871521834... and s = 1.373172215091866448521512759142574301075022413158... are real roots of the system of equations s = 1 + r*(1 + r*s^4)^3, 12 * r^2 * s^3 * (1 + r*s^4)^2 = 1. - Vaclav Kotesovec, Nov 22 2017
MATHEMATICA
Flatten[{1, Table[Sum[Binomial[3*(n-k), k]/(n-k)*Binomial[4*k, n-k-1], {k, 0, n-1}], {n, 1, 20}]}] (* Vaclav Kotesovec, Nov 22 2017 *)
PROG
(PARI) {a(n)=local(A=1+x*O(x^n)); for(i=0, n, A=1+x*(1+x*A^4)^3); polcoeff(A, n)}
(PARI) a(n)=if(n==0, 1, sum(k=0, n-1, binomial(3*(n-k), k)/(n-k)*binomial(4*k, n-k-1))) \\ Paul D. Hanna, Jun 16 2009
CROSSREFS
Cf. A137958, A137956; A137953, A137962, A137969.
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Feb 26 2008
STATUS
approved
A137961
G.f. satisfies A(x) = 1 + x*(1 + x*A(x)^2)^5.
+10
6
1, 1, 5, 20, 105, 575, 3306, 19760, 121035, 757230, 4815530, 31039402, 202335855, 1331569725, 8834918160, 59035907480, 396937508816, 2683518356850, 18230570856710, 124390574548960, 852074529347120, 5857453791938135
(list; graph; refs; listen; history; text; internal format)
OFFSET
0,3
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 0..400
FORMULA
G.f.: A(x) = 1 + x*B(x)^5 where B(x) is the g.f. of A137960.
a(n) = Sum_{k=0..n-1} C(5*(n-k),k)/(n-k) * C(2*k,n-k-1) for n>0 with a(0)=1. - Paul D. Hanna, Jun 16 2009
a(n) ~ sqrt(5*s*(1-s)*(2-3*s) / ((36*s - 20)*Pi)) / (n^(3/2) * r^n), where r = 0.1354712934479194768810666044866029126617104117352... and s = 1.618016818966151244027202981456410137451426090894... are real roots of the system of equations s = 1 + r*(1 + r*s^2)^5, 10 * r^2 * s * (1 + r*s^2)^4 = 1. - Vaclav Kotesovec, Nov 22 2017
PROG
(PARI) {a(n)=local(A=1+x*O(x^n)); for(i=0, n, A=1+x*(1+x*A^2)^5); polcoeff(A, n)}
(PARI) a(n)=if(n==0, 1, sum(k=0, n-1, binomial(5*(n-k), k)/(n-k)*binomial(2*k, n-k-1))) \\ Paul D. Hanna, Jun 16 2009
CROSSREFS
Cf. A137960, A137962; A137963, A137965, A137973.
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Feb 26 2008
STATUS
approved
A137963
G.f. satisfies A(x) = 1 + x*(1 + x*A(x)^3)^5.
+10
6
1, 1, 5, 25, 160, 1075, 7671, 56760, 431865, 3357790, 26558520, 213032988, 1728808700, 14168337265, 117096909495, 974842628790, 8167462511193, 68813778610350, 582675107162175, 4955767502292960, 42318868510894860
(list; graph; refs; listen; history; text; internal format)
OFFSET
0,3
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 0..350
FORMULA
G.f.: A(x) = 1 + x*B(x)^5 where B(x) is the g.f. of A137962.
a(n) = Sum_{k=0..n-1} C(5*(n-k),k)/(n-k) * C(3*k,n-k-1) for n>0 with a(0)=1. - Paul D. Hanna, Jun 16 2009
a(n) ~ sqrt(5*s*(1-s)*(3-4*s) / ((84*s - 60)*Pi)) / (n^(3/2) * r^n), where r = 0.1085884782751570249717333800652227343328635496829... and s = 1.404764002126311415321709718173984955120001713401... are real roots of the system of equations s = 1 + r*(1 + r*s^3)^5, 15 * r^2 * s^2 * (1 + r*s^3)^4 = 1. - Vaclav Kotesovec, Nov 22 2017
PROG
(PARI) {a(n)=local(A=1+x*O(x^n)); for(i=0, n, A=1+x*(1+x*A^3)^5); polcoeff(A, n)}
(PARI) a(n)=if(n==0, 1, sum(k=0, n-1, binomial(5*(n-k), k)/(n-k)*binomial(3*k, n-k-1))) \\ Paul D. Hanna, Jun 16 2009
CROSSREFS
Cf. A137962, A137964; A137961, A137965, A137973.
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Feb 26 2008
STATUS
approved
A137969
G.f. satisfies A(x) = 1 + x*(1 + x*A(x)^6)^3.
+10
6
1, 1, 3, 21, 136, 1032, 8139, 66975, 567417, 4915386, 43350639, 387889254, 3512655498, 32133132074, 296496163113, 2756279003712, 25790064341592, 242699145598212, 2295564345035100, 21811226043019788, 208084639385653938
(list; graph; refs; listen; history; text; internal format)
OFFSET
0,3
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 0..350
FORMULA
G.f.: A(x) = 1 + x*B(x)^3 where B(x) is the g.f. of A137970.
a(n) = Sum_{k=0..n-1} C(3*(n-k),k)/(n-k) * C(6*k,n-k-1) for n>0 with a(0)=1. - Paul D. Hanna, Jun 16 2009
a(n) ~ sqrt(3*s*(1-s)*(6-7*s) / ((204*s - 180)*Pi)) / (n^(3/2) * r^n), where r = 0.0971328555591006631243189792661187629516513365080... and s = 1.254068189138542668013320901661524162625316815207... are real roots of the system of equations s = 1 + r*(1 + r*s^6)^3, 18 * r^2 * s^5 * (1 + r*s^6)^2 = 1. - Vaclav Kotesovec, Nov 22 2017
PROG
(PARI) {a(n)=local(A=1+x*O(x^n)); for(i=0, n, A=1+x*(1+x*A^6)^3); polcoeff(A, n)}
(PARI) a(n)=if(n==0, 1, sum(k=0, n-1, binomial(3*(n-k), k)/(n-k)*binomial(6*k, n-k-1))) \\ Paul D. Hanna, Jun 16 2009
CROSSREFS
Cf. A137970, A137968; A137953, A137957, A137962.
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Feb 26 2008
STATUS
approved
page 1

Search completed in 0.007 seconds

Lookup Welcome Wiki Register Music Plot 2 Demos Index WebCam Contribute Format Style Sheet Transforms Superseeker Recents
The OEIS Community
Maintained by The OEIS Foundation Inc.
Last modified November 7 20:40 EST 2024. Contains 377536 sequences.
License Agreements, Terms of Use, Privacy Policy