A156554 -id:A156554 - cp's OEIS frontend

A157058 Number of integer sequences of length n+1 with sum zero and sum of absolute values 18.

2, 54, 812, 8580, 70310, 472626, 2703512, 13507416, 60110030, 241925530, 891454124, 3037849828, 9654482474, 28818500830, 81289041680, 217815522736, 556959705302, 1364497268946, 3214138597460, 7302195414780, 16045139112002, 34183012888134, 70764981877592

Offset: 1

R. H. Hardin, Feb 22 2009

T. D. Noe, Table of n, a(n) for n = 1..1000
Index entries for linear recurrences with constant coefficients, signature (19,-171,969,-3876,11628,-27132,50388,-75582, 92378,-92378,75582,-50388,27132,-11628,3876,-969,171,-19,1).

Cf. A103881, A156554.

Table[(48620/18!)*n*(n+1)*(14631321600 +26760222720*n +38452817664*n^2 +25217041536*n^3 +17311651344*n^4 +5993468992*n^5 +2592460808*n^6 +533444296*n^7 +163476113*n^8 +20735776*n^9 +4812092*n^10 +370160*n^11 +67942*n^12 +2912*n^13 +436*n^14 +8*n^15 +n^16), {n,50}] (* G. C. Greubel, Jan 24 2022 *)

[(48620/factorial(18))*n*(n+1)*(14631321600 +26760222720*n +38452817664*n^2 +25217041536*n^3 +17311651344*n^4 +5993468992*n^5 +2592460808*n^6 +533444296*n^7 +163476113*n^8 +20735776*n^9 +4812092*n^10 +370160*n^11 +67942*n^12 +2912*n^13 +436*n^14 +8*n^15 +n^16) for n in (1..50)] # G. C. Greubel, Jan 24 2022

a(n) = T(n,9); T(n,k) = Sum_{i=1..n} binomial(n+1,i)*binomial(k-1,i-1)*binomial(n-i+k,k).
G.f.: 2*x*(1 +8*x +64*x^2 +224*x^3 +784*x^4 +1568*x^5 +3136*x^6 +3920*x^7 +4900*x^8 +3920*x^9 +3136*x^10 +1568*x^11 +784*x^12 +224*x^13 +64*x^14 +8*x^15 +x^16)/(1-x)^19. - Colin Barker, Jan 25 2013
a(n) = (48620/18!)*n*(n+1)*(14631321600 +26760222720*n +38452817664*n^2 +25217041536*n^3 +17311651344*n^4 +5993468992*n^5 +2592460808*n^6 +533444296*n^7 +163476113*n^8 +20735776*n^9 +4812092*n^10 +370160*n^11 +67942*n^12 +2912*n^13 +436*n^14 +8*n^15 +n^16). - G. C. Greubel, Jan 24 2022

A157059 Number of integer sequences of length n+1 with sum zero and sum of absolute values 20.

Original entry on oeis.org

2, 60, 1002, 11750, 106752, 794598, 5025692, 27717948, 135916002, 601585512, 2432878866, 9079799742, 31534801116, 102644594262, 315029394792, 916470530808, 2538818182782, 6724224543708, 17088309885542, 41800229045610, 98698280879352, 225524301678170

Offset: 1

R. H. Hardin, Feb 22 2009

T. D. Noe, Table of n, a(n) for n = 1..1000
Index entries for linear recurrences with constant coefficients, signature (21,-210,1330,-5985,20349,-54264, 116280,-203490,293930,-352716, 352716,-293930,203490,-116280,54264,-20349,5985, -1330,210,-21,1).

Cf. A103881, A156554.

A103881[n_, k_]:= (n+1)*Binomial[n+k-1, k]*HypergeometricPFQ[{1-n,-n,1-k}, {2,1-n-k}, 1];
A157059[n_]:= A103881[n,10];
Table[A157059[n], {n, 50}] (* G. C. Greubel, Jan 24 2022 *)

def A103881(n,k): return sum( binomial(n+1, i)*binomial(k-1, i-1)*binomial(n-i+k, k) for i in (0..n) )
def A157059(n): return A103881(n, 10)
[A157059(n,10) for n in (1..50)] # G. C. Greubel, Jan 24 2022

a(n) = T(n,10); T(n,k) = Sum_{i=1..n} binomial(n+1, i)*binomial(k-1, i-1)*binomial(n-i+k, k).
G.f.: 2*x*(x^18 +9*x^17 +81*x^16 +324*x^15 +1296*x^14 +3024*x^13 +7056*x^12 +10584*x^11 +15876*x^10 +15876*x^9 +15876*x^8 +10584*x^7 +7056*x^6 +3024*x^5 +1296*x^4 +324*x^3 +81*x^2 +9*x +1)/(1-x)^21. - Colin Barker, Jan 25 2013
From G. C. Greubel, Jan 24 2022: (Start)
a(n) = (184756/20!)*n*(n+1)*(1316818944000 +2540101939200*n +3742987138560*n^2 +2615609097216*n^3 +1848671853984*n^4 +695217071376*n^5 +310567813984*n^6 +71342133912*n^7 +22639753938*n^8 +3337504857*n^9 +803922153*n^10 +76623228*n^11 +14628472*n^12 +873558*n^13 +136302*n^14 +4644*n^15 +606*n^16 +9*n^17 +n^18).
a(n) = (n+1)*binomial(n+9, 10)*Hypergeometric3F2([-9, -n, 1-n], [2, -n-9], 1). (End)

A157060 Number of integer sequences of length n+1 with sum zero and sum of absolute values 22.

Original entry on oeis.org

2, 66, 1212, 15620, 155850, 1272810, 8823080, 53265960, 285510150, 1379301990, 6078578508, 24680519604, 93093230958, 328512273390, 1091144804400, 3429182092560, 10244035242630, 29206656395910, 79759293448100

Offset: 1

R. H. Hardin, Feb 22 2009

nonn

G. C. Greubel, Table of n, a(n) for n = 1..1000
Index entries for linear recurrences with constant coefficients, signature (23,-253,1771,-8855,33649,-100947,245157,-490314, 817190,-1144066,1352078, -1352078,1144066,-817190,490314,-245157,100947,-33649, 8855,-1771,253,-23,1).

Cf. A103881, A156554.

A103881[n_, k_]:= (n+1)*Binomial[n+k-1,k]*HypergeometricPFQ[{1-n,-n,1-k}, {2,1-n - k}, 1];
A157060[n_] := A103881[n, 11];
Table[A157060[n], {n, 50}] (* G. C. Greubel, Jan 24 2022 *)

def A103881(n,k): return sum( binomial(n+1, i)*binomial(k-1, i-1)*binomial(n-i+k, k) for i in (0..n) )
def A157060(n): return A103881(n, 11)
[A157060(n) for n in (1..50)] # G. C. Greubel, Jan 24 2022

a(n) = T(n,11); T(n,k) = Sum_{i=1..n} binomial(n+1, i)*binomial(k-1, i-1)*binomial(n-i+k, k).
From G. C. Greubel, Jan 24 2022: (Start)
a(n) = (n+1)*binomial(n+10, 11)*Hypergeometric3F2([-10, -n, 1-n], [2, -n-10], 1).
a(n) = (705432/22!)*n*(n+1)*(144850083840000 +292579402752000*n +440986525516800*n^2 +325146872079360*n^3 +235868591146176*n^4 +94960596391200*n^5 +43658519177360*n^6 +10953312870160*n^7 +3585704220196*n^8 +593523073650*n^9 +147783744195*n^10 +16467776610*n^11 +3255909581*n^12 +242376100*n^13 +39230830*n^14 +1873860*n^15 +254046*n^16 +7050*n^17 +815*n^18 +10*n^19 +n^20).
G.f.: 2*x*(1 +10*x +100*x^2 +450*x^3 +2025*x^4 +5400*x^5 +14400*x^6 +25200*x^7 +44100*x^8 +52920*x^9 +63504*x^10 +52920*x^11 +44100*x^12 +25200*x^13 +14400*x^14 +5400*x^15 +2025*x^16 +450*x^17 +100*x^18 +10*x^19 +x^20)/(1-x)^23. (End)

A157061 Number of integer sequences of length n+1 with sum zero and sum of absolute values 24.

Original entry on oeis.org

2, 72, 1442, 20260, 220250, 1958460, 14768810, 96900810, 563873400, 2953859370, 14097919968, 61908797418, 252208679268, 959882556570, 3433533723900, 11603837100660, 37221177046410, 113779617228060, 332648955112250, 933146517188760, 2518877938240202

Offset: 1

R. H. Hardin, Feb 22 2009

nonn

T. D. Noe, Table of n, a(n) for n = 1..1000
Index entries for linear recurrences with constant coefficients, signature (25,-300,2300,-12650,53130,-177100,480700,-1081575, 2042975,-3268760,4457400,-5200300,5200300,-4457400,3268760,-2042975,1081575, -480700,177100,-53130,12650,-2300,300,-25,1).

Cf. A103881, A156554.

A103881[n_, k_]:= (n+1)*Binomial[n+k-1,k]*HypergeometricPFQ[{1-n,-n,1-k}, {2,1-n - k}, 1];
A157061[n_]:= A103881[n, 12];
Table[A157061[n], {n, 50}] (* G. C. Greubel, Jan 24 2022 *)

def A103881(n,k): return sum( binomial(n+1, i)*binomial(k-1, i-1)*binomial(n-i+k, k) for i in (0..n) )
def A157061(n): return A103881(n, 12)
[A157061(n) for n in (1..50)] # G. C. Greubel, Jan 24 2022

a(n) = T(n,12); T(n,k) = Sum_{i=1..n} binomial(n+1, i)*binomial(k-1, i-1)*binomial(n-i+k, k).
From G. C. Greubel, Jan 24 2022: (Start)
a(n) = (n+1)*binomial(n+11, 12)*Hypergeometric3F2([-11, -n, 1-n], [2, -n-11], 1).
a(n) = (2704156/24!)*n*(n+1)*(19120211066880000 + 40213832085504000*n + 61866024285081600*n^2 + 47770238895160320*n^3 + 35477403021764352*n^4 + 15129353226246336*n^5 + 7138320279252096*n^6 + 1926081009812080*n^7 + 648411230685152*n^8 + 117787792143956*n^9 + 30215435337736*n^10 + 3799367698665*n^11 + 775177128207*n^12 + 67808650591*n^13 + 11342892341*n^14 + 678888650*n^15 + 95251222*n^16 + 3725106*n^17 + 446226*n^18 + 10285*n^19 + 1067*n^20 + 11*n^21 + n^22).
G.f.: 2*x*(1 + 11*x + 121*x^2 + 605*x^3 + 3025*x^4 + 9075*x^5 + 27225*x^6 + 54450*x^7 + 108900*x^8 + 152460*x^9 + 213444*x^10 + 213444*x^11 + 213444*x^12 + 152460*x^13 + 108900*x^14 + 54450*x^15 + 27225*x^16 + 9075*x^17 + 3025*x^18 + 605*x^19 + 121*x^20 + 11*x^21 + x^22)/(1-x)^25. (End)

A157062 Number of integer sequences of length n+1 with sum zero and sum of absolute values 26.

Original entry on oeis.org

2, 78, 1692, 25740, 302850, 2912910, 23744840, 168278760, 1056789450, 5968878630, 30684132468, 144977296932, 634756203018, 2593322651430, 9946019437200, 35995371261360, 123490242018990, 403237594259010, 1257743358034100, 3759426449644740, 10799525727846702

Offset: 1

R. H. Hardin, Feb 22 2009

nonn

T. D. Noe, Table of n, a(n) for n = 1..1000
Index entries for linear recurrences with constant coefficients, signature (27,-351,2925,-17550,80730,-296010,888030,-2220075, 4686825,-8436285,13037895,-17383860,20058300,-20058300,17383860,-13037895, 8436285,-4686825,2220075,-888030,296010,-80730,17550,-2925,351,-27,1).

Cf. A103881, A156554.

A103881[n_, k_]:= (n+1)*Binomial[n+k-1,k]*HypergeometricPFQ[{1-n,-n,1-k}, {2, 1-n - k}, 1];
A157062[n_]:= A103881[n, 13];
Table[A157062[n], {n, 50}] (* G. C. Greubel, Jan 24 2022 *)

def A103881(n,k): return sum( binomial(n+1, i)*binomial(k-1, i-1)*binomial(n-i+k, k) for i in (0..n) )
def A157062(n): return A103881(n, 13)
[A157062(n) for n in (1..50)] # G. C. Greubel, Jan 24 2022

a(n) = T(n,13); T(n,k) = Sum_{i=1..n} binomial(n+1, i)*binomial(k-1, i-1)*binomial(n-i+k, k).
From G. C. Greubel, Jan 24 2022: (Start)
a(n) = (n+1)*binomial(n+12, 13)*Hypergeometric3F2([-12, -n, 1-n], [2, -n-12], 1).
a(n) = (10400600/26!)*n*(n+1)*(2982752926433280000 + 6502800338141184000*n + 10192999816651161600*n^2 + 8194549559065989120*n^3 + 6217354001317404672*n^4 + 2785907939555600640*n^5 + 1345736958526293696*n^6 + 386128480881709632*n^7 + 133329525393692848*n^8 + 26155830342678960*n^9 + 6893260441243396*n^10 + 955286585044572*n^11 + 200534847420673*n^12 + 19880275030680*n^13 + 3426180791086*n^14 + 242021337492*n^15 + 35027635423*n^16 + 1724131200*n^17 + 213288856*n^18 + 6959172*n^19 + 746383*n^20 + 14520*n^21 + 1366*n^22 + 12*n^23 + n^24).
G.f.: 2*x*(1 + 12*x + 144*x^2 + 792*x^3 + 4356*x^4 + 14520*x^5 + 48400*x^6 + 108900*x^7 + 245025*x^8 + 392040*x^9 + 627264*x^10 + 731808*x^11 + 853776*x^12 + 731808*x^13 + 627264*x^14 + 392040*x^15 + 245025*x^16 + 108900*x^17 + 48400*x^18 + 14520*x^19 + 4356*x^20 + 792*x^21 + 144*x^22 + 12*x^23 + x^24)/(1-x)^27. (End)

A157063 Number of integer sequences of length n+1 with sum zero and sum of absolute values 28.

Original entry on oeis.org

2, 84, 1962, 32130, 406800, 4208610, 36881420, 280819260, 1893408750, 11472968760, 63221641758, 319917948246, 1498750896708, 6545498596110, 26808012135000, 103501142484360, 378407481456870, 1315394383751460, 4363052456797550, 13853429338548630

Offset: 1

R. H. Hardin, Feb 22 2009

nonn

T. D. Noe, Table of n, a(n) for n = 1..1000
Index entries for linear recurrences with constant coefficients, signature (29, -406, 3654, -23751, 118755, -475020, 1560780, -4292145, 10015005, -20030010, 34597290, -51895935, 67863915, -77558760, 77558760, -67863915, 51895935, -34597290, 20030010, -10015005, 4292145, -1560780, 475020, -118755, 23751, -3654, 406, -29, 1).

Cf. A103881, A156554.

A103881[n_, k_]:= (n+1)*Binomial[n+k-1,k]*HypergeometricPFQ[{1-n,-n,1-k}, {2, 1-n - k}, 1];
A157063[n_]:= A103881[n, 14];
Table[A157063[n], {n, 50}] (* G. C. Greubel, Jan 24 2022 *)

def A103881(n,k): return sum( binomial(n+1, i)*binomial(k-1, i-1)*binomial(n-i+k, k) for i in (0..n) )
def A157063(n): return A103881(n, 14)
[A157063(n) for n in (1..50)] # G. C. Greubel, Jan 24 2022

a(n) = T(n,14); T(n,k) = Sum_{i=1..n} binomial(n+1, i)*binomial(k-1, i-1)*binomial(n-i+k, k).
From G. C. Greubel, Jan 24 2022: (Start)
a(n) = (n+1)*binomial(n+13, 14)*Hypergeometric3F2([-13, -n, 1-n], [2, -n-13], 1).
a(n) = (40116600/28!)*n*(n+1)*(542861032610856960000 + 1222285449585328128000*n + 1949147924290921267200*n^2 + 1623917017366475120640*n^3 + 1256475121883342659584*n^4 + 587860847016245577216*n^5 + 290144191606881266304*n^6 + 87769963981312971072*n^7 + 31017509312522326880*n^8 + 6493644952485577744*n^9 + 1754084550497496360*n^10 + 263474544214276252*n^11 + 56764614862429890*n^12 + 6225163072052509*n^13 + 1102423601827845*n^14 + 88588233707662*n^15 + 13189509162960*n^16 + 769151138899*n^17 + 97984044015*n^18 + 4039324432*n^19 + 446558970*n^20 + 12345619*n^21 + 1198275*n^22 + 19942*n^23 + 1716*n^24 + 13*n^25 + n^26).
G.f.: 2*x*(1 + 13*x + 169*x^2 + 1014*x^3 + 6084*x^4 + 22308*x^5 + 81796*x^6 + 204490*x^7 + 511225*x^8 + 920205*x^9 + 1656369*x^10 + 2208492*x^11 + 2944656*x^12 + 2944656*x^13 + 2944656*x^14 + 2208492*x^15 + 1656369*x^16 + 920205*x^17 + 511225*x^18 + 204490*x^19 + 81796*x^20 + 22308*x^21 + 6084*x^22 + 1014*x^23 + 169*x^24 + 13*x^25 + x^26)/(1-x)^29. (End)

A157064 Number of integer sequences of length n+1 with sum zero and sum of absolute values 30.

Original entry on oeis.org

2, 90, 2252, 39500, 535502, 5930022, 55599992, 452715672, 3262336002, 21114177018, 124188986196, 670283877588, 3346707628446, 15564971674518, 67830161708592, 278406848295312, 1081149205136382, 3988232552194662, 14025412751733092, 47171740235162340

Offset: 1

R. H. Hardin, Feb 22 2009

nonn

T. D. Noe, Table of n, a(n) for n = 1..1000
Index entries for linear recurrences with constant coefficients, signature (31,-465,4495,-31465,169911,-736281,2629575, -7888725,20160075,-44352165,84672315,-141120525,206253075,-265182525,300540195, -300540195,265182525,-206253075,141120525,-84672315,44352165,-20160075,7888725, -2629575,736281,-169911,31465,-4495,465,-31,1).

Cf. A103881, A156554.

A103881[n_, k_]:= (n+1)*Binomial[n+k-1,k]*HypergeometricPFQ[{1-n,-n,1-k}, {2, 1-n - k}, 1];
A157064[n_]:= A103881[n, 15];
Table[A157064[n], {n, 50}] (* G. C. Greubel, Jan 24 2022 *)

def A103881(n,k): return sum( binomial(n+1, i)*binomial(k-1, i-1)*binomial(n-i+k, k) for i in (0..n) )
def A157064(n): return A103881(n, 15)
[A157064(n) for n in (1..50)] # G. C. Greubel, Jan 24 2022

a(n) = T(n,15); T(n,k) = Sum_{i=1..n} binomial(n+1, i)*binomial(k-1, i-1)*binomial(n-i+k, k).
From G. C. Greubel, Jan 24 2022: (Start)
a(n) = (n+1)*binomial(n+14, 15)*Hypergeometric3F2([-14, -n, 1-n], [2, -n-14], 1).
a(n) = (155117520/30!)*n*(n+1)*(114000816848279961600000 + 264279998869470904320000*n + 428198206877484244992000*n^2 + 368310644587032673075200*n^3 + 290167678780290006589440*n^4 + 141041429579778368449536*n^5 + 71004668064572092241664*n^6 + 22493711118572061653376*n^7 + 8120370606956264477184*n^8 + 1797910570397283902560*n^9 + 496779939204280228640*n^10 + 79886837991962961960*n^11 + 17626771834821917040*n^12 + 2101988853205045350*n^13 + 381651017327064975*n^14 + 34037459504198850*n^15 + 5201044031664375*n^16 + 346174867450230*n^17 + 45303425489595*n^18 + 2220034746930*n^19 + 252351294195*n^20 + 8844405570*n^21 + 883381005*n^22 + 20963670*n^23 + 1857765*n^24 + 26754*n^25 + 2121*n^26 + 14*n^27 + n^28).
G.f.: 2*x*(1 + 14*x + 196*x^2 + 1274*x^3 + 8281*x^4 + 33124*x^5 + 132496*x^6 + 364364*x^7 + 1002001*x^8 + 2004002*x^9 + 4008004*x^10 + 6012006*x^11 + 9018009*x^12 + 10306296*x^13 + 11778624*x^14 + 10306296*x^15 + 9018009*x^16 + 6012006*x^17 + 4008004*x^18 + 2004002 x^19 + 1002001*x^20 + 364364*x^21 + 132496*x^22 + 33124*x^23 + 8281*x^24 + 1274*x^25 + 196*x^26 + 14*x^27 + x^28)/(1-x)^31. (End)

A157065 Number of integer sequences of length n+1 with sum zero and sum of absolute values 32.

Original entry on oeis.org

2, 96, 2562, 47920, 692610, 8174544, 81659522, 708113304, 5431848930, 37403270520, 233931828834, 1341750437352, 7114703302434, 35117045235720, 162298598439330, 705951252118284, 2903050518427962, 11331495633292524, 42132555868774010, 149703679118108220

Offset: 1

R. H. Hardin, Feb 22 2009

nonn

T. D. Noe, Table of n, a(n) for n = 1..1000
Index entries for linear recurrences with constant coefficients, signature (33,-528,5456,-40920,237336,-1107568,4272048, -13884156,38567100,-92561040,193536720,-354817320,573166440,-818809200, 1037158320,-1166803110,1166803110,-1037158320,818809200,-573166440,354817320, -193536720,92561040,-38567100,13884156,-4272048,1107568,-237336,40920,-5456, 528,-33,1).

Cf. A103881, A156554.

A103881[n_, k_]:= (n+1)*Binomial[n+k-1,k]*HypergeometricPFQ[{1-n,-n,1-k}, {2, 1-n - k}, 1];
A157065[n_]:= A103881[n, 16];
Table[A157065[n], {n, 50}] (* G. C. Greubel, Jan 25 2022 *)

def A103881(n,k): return sum( binomial(n+1, i)*binomial(k-1, i-1)*binomial(n-i+k, k) for i in (0..n) )
def A157065(n): return A103881(n, 16)
[A157065(n) for n in (1..50)] # G. C. Greubel, Jan 25 2022

a(n) = T(n,16); T(n,k) = Sum_{i=1..n} binomial(n+1, i)*binomial(k-1, i-1)*binomial(n-i+k, k).
From G. C. Greubel, Jan 25 2022: (Start)
a(n) = (n+1)*binomial(n+15, 16)*Hypergeometric3F2([-15, -n, 1-n], [2, -n-15], 1).
a(n) = (601080390/32!)*n*(n+1)*(27360196043587190784000000 + 65137211981397216460800000*n + 107110050449356033228800000*n^2 + 94817527804050105212928000*n^3 + 75961411427539608595660800*n^4 + 38202458280851158526730240*n^5 + 19587950887554046039781376*n^6 + 6463560689425876180435200*n^7 + 2379792991631228553219840*n^8 + 553304095999692103772160*n^9 + 156114125142340061791744*n^10 + 26624540206135314300000*n^11 + 6005394587432947709600*n^12 + 768878902291539639600*n^13 + 142854837644598236640*n^14 + 13893755540913698625*n^15 + 2174500936993696575*n^16 + 161097628663020825*n^17 + 21612664028370855*n^18 + 1212359721607125*n^19 + 141388292047275*n^20 + 5907926749725*n^21 + 605873224515*n^22 + 18281995875*n^23 + 1664663325*n^24 + 34287435*n^25 + 2794869*n^26 + 35175*n^27 + 2585*n^28 + 15*n^29 + n^30).
G.f.: 2*x*(1 + 15*x + 225*x^2 + 1575*x^3 + 11025*x^4 + 47775*x^5 + 207025*x^6 + 621075*x^7 + 1863225*x^8 + 4099095*x^9 + 9018009*x^10 + 15030015*x^11 + 25050025*x^12 + 32207175*x^13 + 41409225*x^14 + 41409225*x^15 + 41409225*x^16 + 32207175*x^17 + 25050025*x^18 + 15030015*x^19 + 9018009*x^20 + 4099095*x^21 + 1863225*x^22 + 621075*x^23 + 207025*x^24 + 47775*x^25 + 11025*x^26 + 1575*x^27 + 225*x^28 + 15*x^29 + x^30)/(1-x)^33. (End)

A157066 Number of integer sequences of length n+1 with sum zero and sum of absolute values 34.

Original entry on oeis.org

2, 102, 2892, 57460, 882030, 11053434, 117206264, 1078467624, 8774904690, 64062783510, 424600608564, 2579499722124, 14479567043214, 75613799423610, 369504358622640, 1698353774374704, 7375213677918294, 30379740299612514, 119122913376492980, 446056011713374860

Offset: 1

R. H. Hardin, Feb 22 2009

nonn

T. D. Noe, Table of n, a(n) for n = 1..1000
Index entries for linear recurrences with constant coefficients, signature (35,-595,6545,-52360,324632,-1623160,6724520, -23535820,70607460,-183579396,417225900,-834451800,1476337800,-2319959400, 3247943160,-4059928950,4537567650,-4537567650,4059928950,-3247943160,2319959400, -1476337800,834451800,-417225900,183579396,-70607460,23535820,-6724520,1623160, -324632,52360,-6545,595,-35,1).

Cf. A103881, A156554.

A103881[n_, k_]:= (n+1)*Binomial[n+k-1,k]*HypergeometricPFQ[{1-n,-n,1-k}, {2, 1-n - k}, 1];
A157066[n_]:= A103881[n, 17];
Table[A157066[n], {n, 50}] (* G. C. Greubel, Jan 25 2022 *)

def A103881(n,k): return sum( binomial(n+1, i)*binomial(k-1, i-1)*binomial(n-i+k, k) for i in (0..n) )
def A157066(n): return A103881(n, 17)
[A157066(n) for n in (1..50)] # G. C. Greubel, Jan 25 2022

a(n) = T(n,17); T(n,k) = Sum_{i=1..n} binomial(n+1, i)*binomial(k-1, i-1)*binomial(n-i+k, k).
From G. C. Greubel, Jan 25 2022: (Start)
a(n) = (n+1)*binomial(n+16, 17)*Hypergeometric3F2([-16, -n, 1-n], [2, -n-16], 1).
a(n) = (2333606220/34!)*n*(n+1)*(7441973323855715893248000000 + 18155084795637437929881600000*n + 30268626521952180908851200000*n^2 + 27504128369891325149577216000*n^3 + 22380511931408981359868313600*n^4 + 11606451235232148856801198080*n^5 + 6053325843616709826370609152*n^6 + 2071495721724703057714876416*n^7 + 776772176331488107582976256*n^8 + 188575401978015909077544960*n^9 + 54249004662342491124700928*n^10 + 9739700938346246478267904*n^11 + 2242198636428402181902944*n^12 + 305221374822225945324800*n^13 + 57932851765719841948880*n^14 + 6064778909442097812240*n^15 + 970512936702416581665*n^16 + 78610569988240809600*n^17 + 10791805239981923160*n^18 + 675564468731071680*n^19 + 80680394732550780*n^20 + 3869168748681600*n^21 + 406620563860680*n^22 + 14666674470240*n^23 + 1369455578790*n^24 + 35960795520*n^25 + 3007754088*n^26 + 54285504*n^27 + 4095964*n^28 + 45440*n^29 + 3112*n^30 + 16*n^31 + n^32).
G.f.: 2*x*(1 + 16*x + 256*x^2 + 1920*x^3 + 14400*x^4 + 67200*x^5 + 313600*x^6 + 1019200*x^7 + 3312400*x^8 + 7949760*x^9 + 19079424*x^10 + 34978944*x^11 + 64128064*x^12 + 91611520*x^13 + 130873600*x^14 + 147232800*x^15 + 165636900*x^16 + 147232800*x^17 + 130873600*x^18 + 91611520*x^19 + 64128064*x^20 + 34978944*x^21 + 19079424*x^22 + 7949760*x^23 + 3312400*x^24 + 1019200*x^25 + 313600*x^26 + 67200*x^27 + 14400*x^28 + 1920*x^29 + 256*x^30 + 16*x^31 + x^32)/(1-x)^35. (End)

A157067 Number of integer sequences of length n+1 with sum zero and sum of absolute values 36.

Original entry on oeis.org

2, 108, 3242, 68190, 1107920, 14692734, 164826956, 1604095524, 13799638910, 106481351240, 745616925614, 4783532975546, 28342922553764, 156153427053890, 804648531335960, 3897769097766104, 17828728267167326, 77310179609631564, 318931533062574470

Offset: 1

R. H. Hardin, Feb 22 2009

nonn

T. D. Noe, Table of n, a(n) for n = 1..1000
Index entries for linear recurrences with constant coefficients, signature (37,-666,7770,-66045,435897,-2324784,10295472, -38608020,124403620,-348330136,854992152,-1852482996,3562467300,-6107086800, 9364199760,-12875774670,15905368710,-17672631900,17672631900,-15905368710, 12875774670,-9364199760,6107086800,-3562467300,1852482996,-854992152,348330136, -124403620,38608020,-10295472,2324784,-435897,66045,-7770,666,-37,1).

Cf. A103881, A156554.

A103881[n_, k_]:= (n+1)*Binomial[n+k-1,k]*HypergeometricPFQ[{1-n,-n,1-k}, {2, 1-n - k}, 1];
A157067[n_]:= A103881[n, 18];
Table[A157067[n], {n, 50}] (* G. C. Greubel, Jan 25 2022 *)

def A103881(n,k): return sum( binomial(n+1, i)*binomial(k-1, i-1)*binomial(n-i+k, k) for i in (0..n) )
def A157067(n): return A103881(n, 18)
[A157067(n) for n in (1..50)] # G. C. Greubel, Jan 25 2022

a(n) = T(n,18); T(n,k) = Sum_{i=1..n} binomial(n+1, i)*binomial(k-1, i-1)*binomial(n-i+k, k).
From G. C. Greubel, Jan 25 2022: (Start)
a(n) = (n+1)*binomial(n+17, 18)*Hypergeometric3F2([-17, -n, 1-n], [2, -n-17], 1).
a(n) = (9075135300/36!)*n*(n+1)*(2277243837099849063333888000000 + 5681969493970603176728985600000*n + 9596433215362696956739584000000*n^2 + 8930829932059932571221098496000*n^3 + 7373779588191144329720945049600*n^4 + 3932042780814990233298927943680*n^5 + 2083614342312300867651696279552*n^6 + 736784230189243202709052538880*n^7 + 281032534792096725785629118976*n^8 + 70909200002908166006639354112*n^9 + 20771324838612576755137269504*n^10 + 3902581566393773771469894400*n^11 + 915676404299665995395824064*n^12 + 131515117514883976361738848*n^13 + 25463636023538740834106624*n^14 + 2840680826306519243676400*n^15 + 464075830766617076558690*n^16 + 40553554340342769625905*n^17 + 5687795599925219641425*n^18 + 390183416511400627800*n^19 + 47640166465301752080*n^20 + 2555532347549932860*n^21 + 274751324750187660*n^22 + 11400551973525000*n^23 + 1089674111434740*n^24 + 34284748268550*n^25 + 2937122649078*n^26 + 67743183720*n^27 + 5238258144*n^28 + 83536028*n^29 + 5866156*n^30 + 57800*n^31 + 3706*n^32 + 17*n^33 + n^34).
G.f.: 2*x*(1 + 17*x + 289*x^2 + 2312*x^3 + 18496*x^4 + 92480*x^5 + 462400*x^6 + 1618400*x^7 + 5664400*x^8 + 14727440*x^9 + 38291344*x^10 + 76582688*x^11 + 153165376*x^12 + 240688448*x^13 + 378224704*x^14 + 472780880*x^15 + 590976100*x^16 + 590976100*x^17 + 590976100*x^18 + 472780880*x^19 + 378224704*x^20 + 240688448*x^21 + 153165376*x^22 + 76582688*x^23 + 38291344*x^24 + 14727440*x^25 + 5664400*x^26 + 1618400*x^27 + 462400*x^28 + 92480*x^29 + 18496*x^30 + 2312*x^31 + 289*x^32 + 17*x^33 + x^34)/(1-x)^37. (End)

cp's OEIS Frontend

A157058 Number of integer sequences of length n+1 with sum zero and sum of absolute values 18.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Sage

Formula

A157059 Number of integer sequences of length n+1 with sum zero and sum of absolute values 20.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Sage

Formula

A157060 Number of integer sequences of length n+1 with sum zero and sum of absolute values 22.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Sage

Formula

A157061 Number of integer sequences of length n+1 with sum zero and sum of absolute values 24.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Sage

Formula

A157062 Number of integer sequences of length n+1 with sum zero and sum of absolute values 26.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Sage

Formula

A157063 Number of integer sequences of length n+1 with sum zero and sum of absolute values 28.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Sage

Formula

A157064 Number of integer sequences of length n+1 with sum zero and sum of absolute values 30.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Sage

Formula

A157065 Number of integer sequences of length n+1 with sum zero and sum of absolute values 32.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Sage