Search: a023520 -id:a023520
|
|
A063419
|
|
Central sextinomial coefficients.
|
|
+10
6
|
|
|
1, 6, 146, 4332, 135954, 4395456, 144840476, 4836766584, 163112472594, 5542414273884, 189456975899496, 6507792553644256, 224442843729333276, 7766945604528200460, 269557528994032024080, 9378595792117360310832
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
Largest coefficient of (Sum_{j=0..5} x^j)^(2*n). a(n)= A018901(2*n).
The exponent of 2 in prime factorization of a(n) for n=1,2,...,7 is in A023520. - Roman Witula, Oct 07 2012
|
|
REFERENCES
|
Shara Lalo and Zagros Lalo, Polynomial Expansion Theorems and Number Triangles, Zana Publishing, 2018, ISBN: 978-1-9995914-0-3, pp. 605, 606.
R. Witula and D. Slota, Central trinomial coefficients and convolution type identities, Congressus Numerantium 201 (2010), 109-126.
|
|
LINKS
|
|
|
FORMULA
|
a(n) = A063260(2*n, 5*n)= [x^(5*n)](Sum_{j=0..5} x^j)^(2*n).
a(n) = Sum_{k=0..floor(5*n/6)} ((-1)^(k)*binomial(2*n,k)*binomial(7*n-6*k-1, 2*n-1)). - Warut Roonguthai, May 22 2006
2*Pi*a(n) = Integral[-Pi;Pi] (sin(6*x)/sin(x))^(2*n) dx. The proof of this fact is in the Witula/Slota paper. - Roman Witula, Oct 07 2012
The Almkvist-Zeilberger algorithm in EKHAD establishes the following recurrence: -31104*(2*n+5)*(2*n+3)*(2*n+1)*(7*n+19)*(5*n+11)*(7*n+20)*(7*n+13)*(n+2)*(n+1)*a(n)+ 864*(7*n+20)*(2*n+5)*(2*n+3)*(n+2)*(25480*n^5+ 223496*n^4+755066*n^3+1223233*n^2+946889*n+279936)*a(n+1)- 6*(5*n+6)*(2*n+5)*(7*n+6)*(499359*n^6+ 6777015*n^5+38079431*n^4+113390385*n^3+18872398*n^2+ 166469280*n+60800544)*a(n+2)+ 5*(5*n+14)*(5*n+13)*(5*n+12)*(7*n+12)*(5*n+11)*(5*n+6)*(7*n+13)*(7*n+6)*(n+3)*a(n+3) = 0. - Doron Zeilberger, Apr 02 2013
|
|
MATHEMATICA
|
Table[Sum[(-1)^k*Binomial[2*n, k]*Binomial[7*n - 6*k - 1, 2*n - 1], {k, 0, Floor[5*n/6]}], {n, 0, 50}] (* G. C. Greubel, Mar 02 2017 *)
|
|
PROG
|
(PARI) concat([1], for(n=1, 25, print1(sum(k=0, floor(5*n/6), (-1)^(k)*binomial(2*n, k)* binomial(7*n-6*k-1, 2*n-1)), ", "))) \\ G. C. Greubel, Mar 02 2017
(GAP) Concatenation([1], List([1..15], n->Sum([0..Int(5*n/6)], k->(-1)^k*Binomial(2*n, k)*Binomial(7*n-6*k-1, 2*n-1)))); # Muniru A Asiru, Sep 26 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|
|
A100374
|
|
Largest power of 2 dividing prime(n+1) - prime(n), the n-th consecutive prime difference.
|
|
+10
1
|
|
|
1, 2, 2, 4, 2, 4, 2, 4, 2, 2, 2, 4, 2, 4, 2, 2, 2, 2, 4, 2, 2, 4, 2, 8, 4, 2, 4, 2, 4, 2, 4, 2, 2, 2, 2, 2, 2, 4, 2, 2, 2, 2, 2, 4, 2, 4, 4, 4, 2, 4, 2, 2, 2, 2, 2, 2, 2, 2, 4, 2, 2, 2, 4, 2, 4, 2, 2, 2, 2, 4, 2, 8, 2, 2, 4, 2, 8, 4, 8, 2, 2, 2, 2, 2, 4, 2, 8, 4, 2, 4, 4, 8, 4, 8, 4, 2, 4, 2, 2, 2, 2, 2, 2, 2, 2
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Table[GCD[Prime[n+1]-Prime[n], 65536], {n, 1, 256}] (* a secure quick code *)
2^IntegerExponent[#, 2]&/@Flatten[Differences/@Partition[Prime[Range[ 110]], 2, 1]] (* Harvey P. Dale, Apr 28 2012 *)
|
|
PROG
|
(PARI) diff(v) = vector(#v-1, i, v[i+1]-v[i]);
lista(nn) = apply(x->(1<<valuation(x, 2)), diff(primes(nn))); \\ Michel Marcus, Aug 26 2019
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
Search completed in 0.006 seconds
|