cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-10 of 11 results. Next

A011782 Coefficients of expansion of (1-x)/(1-2*x) in powers of x.

Original entry on oeis.org

1, 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 2048, 4096, 8192, 16384, 32768, 65536, 131072, 262144, 524288, 1048576, 2097152, 4194304, 8388608, 16777216, 33554432, 67108864, 134217728, 268435456, 536870912, 1073741824, 2147483648, 4294967296, 8589934592
Offset: 0

Views

Author

Lee D. Killough (killough(AT)wagner.convex.com)

Keywords

Comments

Apart from initial term, same as A000079 (powers of 2).
Number of compositions (ordered partitions) of n. - Toby Bartels, Aug 27 2003
Number of ways of putting n unlabeled items into (any number of) labeled boxes where every box contains at least one item. Also "unimodal permutations of n items", i.e., those which rise then fall. (E.g., for three items: ABC, ACB, BCA and CBA are unimodal.) - Henry Bottomley, Jan 17 2001
Number of permutations in S_n avoiding the patterns 213 and 312. - Tuwani Albert Tshifhumulo, Apr 20 2001. More generally (see Simion and Schmidt), the number of permutations in S_n avoiding (i) the 123 and 132 patterns; (ii) the 123 and 213 patterns; (iii) the 132 and 213 patterns; (iv) the 132 and 231 patterns; (v) the 132 and 312 patterns; (vi) the 213 and 231 patterns; (vii) the 213 and 312 patterns; (viii) the 231 and 312 patterns; (ix) the 231 and 321 patterns; (x) the 312 and 321 patterns.
a(n+2) is the number of distinct Boolean functions of n variables under action of symmetric group.
Number of unlabeled (1+2)-free posets. - Detlef Pauly, May 25 2003
Image of the central binomial coefficients A000984 under the Riordan array ((1-x), x*(1-x)). - Paul Barry, Mar 18 2005
Binomial transform of (1, 0, 1, 0, 1, 0, 1, 0, 1, 0, ...); inverse binomial transform of A007051. - Philippe Deléham, Jul 04 2005
Also, number of rationals in [0, 1) whose binary expansions terminate after n bits. - Brad Chalfan, May 29 2006
Equals row sums of triangle A144157. - Gary W. Adamson, Sep 12 2008
Prepend A089067 with a 1, getting (1, 1, 3, 5, 13, 23, 51, ...) as polcoeff A(x); then (1, 1, 2, 4, 8, 16, ...) = A(x)/A(x^2). - Gary W. Adamson, Feb 18 2010
An elephant sequence, see A175655. For the central square four A[5] vectors, with decimal values 2, 8, 32 and 128, lead to this sequence. For the corner squares these vectors lead to the companion sequence A094373. - Johannes W. Meijer, Aug 15 2010
From Paul Curtz, Jul 20 2011: (Start)
Array T(m,n) = 2*T(m,n-1) + T(m-1,n):
1, 1, 2, 4, 8, 16, ... = a(n)
1, 3, 8, 20, 48, 112, ... = A001792,
1, 5, 18, 56, 160, 432, ... = A001793,
1, 7, 32, 120, 400, 1232, ... = A001794,
1, 9, 50, 220, 840, 2912, ... = A006974, followed with A006975, A006976, gives nonzero coefficients of Chebyshev polynomials of first kind A039991 =
1,
1, 0,
2, 0, -1,
4, 0, -3, 0,
8, 0, -8, 0, 1.
T(m,n) third vertical: 2*n^2, n positive (A001105).
Fourth vertical appears in Janet table even rows, last vertical (A168342 array, A138509, rank 3, 13, = A166911)). (End)
A131577(n) and differences are:
0, 1, 2, 4, 8, 16,
1, 1, 2, 4, 8, 16, = a(n),
0, 1, 2, 4, 8, 16,
1, 1, 2, 4, 8, 16.
Number of 2-color necklaces of length 2n equal to their complemented reversal. For length 2n+1, the number is 0. - David W. Wilson, Jan 01 2012
Edges and also central terms of triangle A198069: a(0) = A198069(0,0) and for n > 0: a(n) = A198069(n,0) = A198069(n,2^n) = A198069(n,2^(n-1)). - Reinhard Zumkeller, May 26 2013
These could be called the composition numbers (see the second comment) since the equivalent sequence for partitions is A000041, the partition numbers. - Omar E. Pol, Aug 28 2013
Number of self conjugate integer partitions with exactly n parts for n>=1. - David Christopher, Aug 18 2014
The sequence is the INVERT transform of (1, 0, 1, 1, 2, 3, 5, 8, 13, 21, 34, ...). - Gary W. Adamson, Jul 16 2015
Number of threshold graphs on n nodes [Hougardy]. - Falk Hüffner, Dec 03 2015
Number of ternary words of length n in which binary subwords appear in the form 10...0. - Milan Janjic, Jan 25 2017
a(n) is the number of words of length n over an alphabet of two letters, of which one letter appears an even number of times (the empty word of length 0 is included). See the analogous odd number case in A131577, and the Balakrishnan reference in A006516 (the 4-letter odd case), pp. 68-69, problems 2.66, 2.67 and 2.68. - Wolfdieter Lang, Jul 17 2017
Number of D-equivalence classes of Łukasiewicz paths. Łukasiewicz paths are D-equivalent iff the positions of pattern D are identical in these paths. - Sergey Kirgizov, Apr 08 2018
Number of color patterns (set partitions) for an oriented row of length n using two or fewer colors (subsets). Two color patterns are equivalent if we permute the colors. For a(4)=8, the 4 achiral patterns are AAAA, AABB, ABAB, and ABBA; the 4 chiral patterns are the 2 pairs AAAB-ABBB and AABA-ABAA. - Robert A. Russell, Oct 30 2018
The determinant of the symmetric n X n matrix M defined by M(i,j) = (-1)^max(i,j) for 1 <= i,j <= n is equal to a(n) * (-1)^(n*(n+1)/2). - Bernard Schott, Dec 29 2018
For n>=1, a(n) is the number of permutations of length n whose cyclic representations can be written in such a way that when the cycle parentheses are removed what remains is 1 through n in natural order. For example, a(4)=8 since there are exactly 8 permutations of this form, namely, (1 2 3 4), (1)(2 3 4), (1 2)(3 4), (1 2 3)(4), (1)(2)(3 4), (1)(2 3)(4), (1 2)(3)(4), and (1)(2)(3)(4). Our result follows readily by conditioning on k, the number of parentheses pairs of the form ")(" in the cyclic representation. Since there are C(n-1,k) ways to insert these in the cyclic representation and since k runs from 0 to n-1, we obtain a(n) = Sum_{k=0..n-1} C(n-1,k) = 2^(n-1). - Dennis P. Walsh, May 23 2020
Maximum number of preimages that a permutation of length n + 1 can have under the consecutive-231-avoiding stack-sorting map. - Colin Defant, Aug 28 2020
a(n) is the number of occurrences of the empty set {} in the von Neumann ordinals from 0 up to n. Each ordinal k is defined as the set of all smaller ordinals: 0 = {}, 1 = {0}, 2 = {0,1}, etc. Since {} is the foundational element of all ordinals, the total number of times it appears grows as powers of 2. - Kyle Wyonch, Mar 30 2025

Examples

			G.f. = 1 + x + 2*x^2 + 4*x^3 + 8*x^4 + 16*x^5 + 32*x^6 + 64*x^7 + 128*x^8 + ...
    ( -1   1  -1)
det (  1   1   1)  = 4
    ( -1  -1  -1)
		

References

  • Mohammad K. Azarian, A Generalization of the Climbing Stairs Problem, Mathematics and Computer Education Journal, Vol. 31, No. 1, pp. 24-28, Winter 1997.
  • S. Kitaev, Patterns in Permutations and Words, Springer-Verlag, 2011. see p. 399 Table A.7
  • Xavier Merlin, Methodix Algèbre, Ellipses, 1995, p. 153.

Crossrefs

Sequences with g.f.'s of the form ((1-x)/(1-2*x))^k: this sequence (k=1), A045623 (k=2), A058396 (k=3), A062109 (k=4), A169792 (k=5), A169793 (k=6), A169794 (k=7), A169795 (k=8), A169796 (k=9), A169797 (k=10).
Cf. A005418 (unoriented), A122746(n-3) (chiral), A016116 (achiral).
Row sums of triangle A100257.
A row of A160232.
Row 2 of A278984.

Programs

  • Haskell
    a011782 n = a011782_list !! n
    a011782_list = 1 : scanl1 (+) a011782_list
    -- Reinhard Zumkeller, Jul 21 2013
    
  • Magma
    [Floor((1+2^n)/2): n in [0..35]]; // Vincenzo Librandi, Aug 21 2011
    
  • Maple
    A011782:= n-> ceil(2^(n-1)): seq(A011782(n), n=0..50); # Wesley Ivan Hurt, Feb 21 2015
    with(PolynomialTools):  A011782:=seq(coeftayl((1-x)/(1-2*x), x = 0, k),k=0..10^2); # Muniru A Asiru, Sep 26 2017
  • Mathematica
    f[s_] := Append[s, Ceiling[Plus @@ s]]; Nest[f, {1}, 32] (* Robert G. Wilson v, Jul 07 2006 *)
    CoefficientList[ Series[(1-x)/(1-2x), {x, 0, 32}], x] (* Robert G. Wilson v, Jul 07 2006 *)
    Table[Sum[StirlingS2[n, k], {k,0,2}], {n, 0, 30}] (* Robert A. Russell, Apr 25 2018 *)
    Join[{1},NestList[2#&,1,40]] (* Harvey P. Dale, Dec 06 2018 *)
  • PARI
    {a(n) = if( n<1, n==0, 2^(n-1))};
    
  • PARI
    Vec((1-x)/(1-2*x) + O(x^30)) \\ Altug Alkan, Oct 31 2015
    
  • Python
    def A011782(n): return 1 if n == 0 else 2**(n-1) # Chai Wah Wu, May 11 2022
  • Sage
    [sum(stirling_number2(n,j) for j in (0..2)) for n in (0..35)] # G. C. Greubel, Jun 02 2020
    

Formula

a(0) = 1, a(n) = 2^(n-1).
G.f.: (1 - x) / (1 - 2*x) = 1 / (1 - x / (1 - x)). - Michael Somos, Apr 18 2012
E.g.f.: cosh(z)*exp(z) = (exp(2*z) + 1)/2.
a(0) = 1 and for n>0, a(n) = sum of all previous terms.
a(n) = Sum_{k=0..n} binomial(n, 2*k). - Paul Barry, Feb 25 2003
a(n) = Sum_{k=0..n} binomial(n,k)*(1+(-1)^k)/2. - Paul Barry, May 27 2003
a(n) = floor((1+2^n)/2). - Toby Bartels (toby+sloane(AT)math.ucr.edu), Aug 27 2003
G.f.: Sum_{i>=0} x^i/(1-x)^i. - Jon Perry, Jul 10 2004
a(n) = Sum_{k=0..n} (-1)^(n-k)*binomial(k+1, n-k)*binomial(2*k, k). - Paul Barry, Mar 18 2005
a(n) = Sum_{k=0..floor(n/2)} A055830(n-k, k). - Philippe Deléham, Oct 22 2006
a(n) = Sum_{k=0..n} A098158(n,k). - Philippe Deléham, Dec 04 2006
G.f.: 1/(1 - (x + x^2 + x^3 + ...)). - Geoffrey Critzer, Aug 30 2008
a(n) = A000079(n) - A131577(n).
a(n) = A173921(A000079(n)). - Reinhard Zumkeller, Mar 04 2010
a(n) = Sum_{k=2^n..2^(n+1)-1} A093873(k)/A093875(k), sums of rows of the full tree of Kepler's harmonic fractions. - Reinhard Zumkeller, Oct 17 2010
E.g.f.: (exp(2*x)+1)/2 = (G(0) + 1)/2; G(k) = 1 + 2*x/(2*k+1 - x*(2*k+1)/(x + (k+1)/G(k+1))); (continued fraction). - Sergei N. Gladkovskii, Dec 03 2011
A051049(n) = p(n+1) where p(x) is the unique degree-n polynomial such that p(k) = a(k) for k = 0, 1, ..., n. - Michael Somos, Apr 18 2012
A008619(n) = p(-1) where p(x) is the unique degree-n polynomial such that p(k) = a(k) for k = 0, 1, ..., n. - Michael Somos, Apr 18 2012
INVERT transform is A122367. MOBIUS transform is A123707. EULER transform of A059966. PSUM transform is A000079. PSUMSIGN transform is A078008. BINOMIAL transform is A007051. REVERT transform is A105523. A002866(n) = a(n)*n!. - Michael Somos, Apr 18 2012
G.f.: U(0), where U(k) = 1 + x*(k+3) - x*(k+2)/U(k+1); (continued fraction, 1-step). - Sergei N. Gladkovskii, Oct 10 2012
a(n) = A000041(n) + A056823(n). - Omar E. Pol, Aug 31 2013
E.g.f.: E(0), where E(k) = 1 + x/( 2*k+1 - x/E(k+1) ); (continued fraction). - Sergei N. Gladkovskii, Dec 25 2013
G.f.: 1 + x/(1 + x)*( 1 + 3*x/(1 + 3*x)*( 1 + 5*x/(1 + 5*x)*( 1 + 7*x/(1 + 7*x)*( 1 + ... )))). - Peter Bala, May 27 2017
a(n) = Sum_{k=0..2} stirling2(n, k).
G.f.: Sum_{j=0..k} A248925(k,j)*x^j / Product_{j=1..k} 1-j*x with k=2. - Robert A. Russell, Apr 25 2018
a(n) = A053120(n, n), n >= 0, (main diagonal of triangle of Chebyshev's T polynomials). - Wolfdieter Lang, Nov 26 2019

Extensions

Additional comments from Emeric Deutsch, May 14 2001
Typo corrected by Philippe Deléham, Oct 25 2008

A057711 a(0)=0, a(1)=1, a(n) = n*2^(n-2) for n >= 2.

Original entry on oeis.org

0, 1, 2, 6, 16, 40, 96, 224, 512, 1152, 2560, 5632, 12288, 26624, 57344, 122880, 262144, 557056, 1179648, 2490368, 5242880, 11010048, 23068672, 48234496, 100663296, 209715200, 436207616, 905969664, 1879048192, 3892314112, 8053063680
Offset: 0

Views

Author

Bernhard Wolf (wolf(AT)cs.tu-berlin.de), Oct 24 2000

Keywords

Comments

Number of states in the planning domain FERRY, when n-3 cars are at one of two shores while the (n-2)nd car may be on the ferry or at one of the shores.
If the ferry could board any number of cars (instead of only one), the number of states would form the Pisot sequence P(2,6) (A008776). In addition, if k shores existed, the sequence would form the Pisot sequence P(k,k(k+1)). This corresponds to the BRIEFCASE planning domain.
a(i) is the number of occurrences of the number 1 in all palindromic compositions of n = 2*(i+1). - Silvia Heubach (sheubac(AT)calstatela.edu), Jan 10 2003. E.g., there are 5 palindromic compositions of 6, namely 111111 11211 2112 1221 141, containing a total of 16 1's.
Number of occurrences of 00's in all circular binary words of length n. Example: a(3)=6 because in the circular binary words 000, 001, 010, 011, 100, 101, 110 and 111 we have a total of 3+1+1+0+1+0+0+0=6 occurrences of 00. a(n) = Sum_{k=0..n} k*A119458(n,k). - Emeric Deutsch, May 20 2006
a(n) is the number of permutations on [n] for which the entries of each left factor form a circular subinterval of [n]. A subset I of [n] forms a circular subinterval of [n] if it is an ordinary interval [a,b] or has the form [1,a]-union-[b,n] for 1 <= a < b <= n. For example, (5,4,2) is a left factor of the permutation (5,4,2,1,3) which does not form a circular subinterval of [5] and a(4)=16 counts all 24 permutations of [4] except the eight whose first two entries are 1,3 (in either order) or 2,4. - David Callan, Mar 30 2007
a(n) is the total number of runs in all Boolean (n-1)-strings. For example, the 8 Boolean 3-strings, 000, 001, 010, 011, 100, 101, 110, 111 have 1, 2, 3, 2, 2, 3, 2, 1 runs respectively. - David Callan, Jul 22 2008
From Gary W. Adamson, Jul 31 2010: (Start)
Starting with "1" = (1, 2, 4, 8, ...) convolved with (1, 0, 2, 4, 8, ...).
Example: a(6) = 96 = (32, 16, 8, 4, 2, 1) dot (1, 0, 2, 4, 8, 16) = (32 + 0 + 16 + 16 + 16, + 16) = 32 + 4*16 (End)
An elephant sequence, see A175654. For the corner squares 24 A[5] vectors, with decimal values between 27 and 432, lead to this sequence (without the leading 0). For the central square these vectors lead to the companion sequence A087447 (without the first leading 1). - Johannes W. Meijer, Aug 15 2010
Starting with 1 = (1, 1, 2, 4, 8, 16, ...) convolved with (1, 1, 3, 7, 15, 31, ...). - Gary W. Adamson, Oct 26 2010
a(n) is the number of ways to draw simple polygonal chains for n vertices lying on a circle. - Anton Zakharov, Dec 31 2016
Also the number of edges, maximal cliques, and maximum cliques in the n-folded cube graph for n > 3. - Eric W. Weisstein, Dec 01 2017 and Mar 21 2018
Number of pairs of compositions of n corresponding to a seaweed algebra of index n-2 for n > 2. - Nick Mayers, Jun 25 2018
Starting with 1, 2, 6, 16, ..., number of permutations of length n>0 avoiding the partially ordered pattern (POP) {1>2, 1>3} of length 4. That is, number of length n permutations having no subsequences of length 4 in which the first element is larger than the second and third elements. - Sergey Kitaev, Dec 08 2020

Examples

			a(1)=6 because the palindromic compositions of n=4 are 4, 1+2+1, 1+1+1+1 and 2+2 and they contain 6 ones. - Silvia Heubach (sheubac(AT)calstatela.edu), Jan 10 2003
		

Crossrefs

Pisot sequence P(2, 6) (A008776), Pisot sequence P(k, k(k+1))
Cf. A119458.

Programs

  • Magma
    [Ceiling(n*2^(n-2)) : n in [0..40]]; // Vincenzo Librandi, Sep 22 2011
    
  • Mathematica
    Join[{0, 1}, Table[n 2^(n - 2), {n, 2, 30}]] (* Eric W. Weisstein, Dec 01 2017 *)
    Join[{0, 1}, LinearRecurrence[{4, -4}, {2, 6}, 20]] (* Eric W. Weisstein, Dec 01 2017 *)
    CoefficientList[Series[x (1 - 2 x + 2 x^2)/(1 - 2 x)^2, {x, 0, 20}], x] (* Eric W. Weisstein, Dec 01 2017 *)
  • PARI
    a(n)=ceil(n*2^(n-2)) \\ Charles R Greathouse IV, Oct 31 2011
    
  • PARI
    x='x+O('x^50); concat(0, Vec(x*(1-2*x+2*x^2)/(1-2*x)^2)) \\ Altug Alkan, Nov 01 2015

Formula

a(n) = ceiling(n*2^(n-2)).
Binomial transform of (0, 1, 0, 3, 0, 5, 0, 7, ...).
From Paul Barry, Apr 06 2003: (Start)
a(0)=0, a(n) = n*(0^(n-1) + 2^(n-1))/2, n > 0.
a(n) = Sum_{k=0..n} binomial(n, 2k+1)*(2k+1).
E.g.f.: x*exp(x)*cosh(x). (End)
The sequence 1, 1, 6, 16, ... is the binomial transform of A016813 with interpolated zeros. - Paul Barry, Jul 25 2003
For n > 1, a(n) = Sum_{k=0..n} (k-n/2)^2 C(n, k). (n+1)*a(n) = A001788(n). - Mario Catalani (mario.catalani(AT)unito.it), Nov 26 2003
From Paul Barry, May 07 2004: (Start)
a(n) = n*2^(n-2) - Sum_{k=0..n} binomial(n, k)*k*(-1)^k.
G.f.: x*(1-2*x+2*x^2)/(1-2*x)^2. (End)
a(n+1) = ceiling(binomial(n+1,1)*2^(n-1)). - Zerinvary Lajos, Nov 01 2006
a(n+1) = Sum_{k=0..n} A196389(n,k)*2^k. - Philippe Deléham, Oct 31 2011
a(0)=0, a(1)=1, a(2)=2, a(3)=6, a(n+1) = 4*a(n)-4*a(n-1) for n >= 3. - Philippe Deléham, Feb 20 2013
a(n) = A002064(n-1) - A002064(n-2), for n >= 2. - Ivan N. Ianakiev, Dec 29 2013
From Amiram Eldar, Aug 05 2020: (Start)
Sum_{n>=1} 1/a(n) = 4*log(2) - 1.
Sum_{n>=1} (-1)^(n+1)/a(n) = 4*log(3/2) - 1. (End)

A082137 Square array of transforms of binomial coefficients, read by antidiagonals.

Original entry on oeis.org

1, 1, 1, 1, 2, 2, 1, 3, 6, 4, 1, 4, 12, 16, 8, 1, 5, 20, 40, 40, 16, 1, 6, 30, 80, 120, 96, 32, 1, 7, 42, 140, 280, 336, 224, 64, 1, 8, 56, 224, 560, 896, 896, 512, 128, 1, 9, 72, 336, 1008, 2016, 2688, 2304, 1152, 256, 1, 10, 90, 480, 1680, 4032, 6720, 7680, 5760, 2560, 512
Offset: 0

Views

Author

Paul Barry, Apr 06 2003

Keywords

Comments

Rows are associated with the expansions of (x^k/k!)exp(x)cosh(x) (leading zeros dropped). Rows include A011782, A057711, A080929, A082138, A080951, A082139, A082140, A082141. Columns are of the form 2^(k-1)C(n+k, k). Diagonals include A069723, A082143, A082144, A082145, A069720.
T(n, k) is also the number of idempotent order-preserving and order-decreasing partial transformations (of an n-chain) of width k (width(alpha)= |Dom(alpha)|). - Abdullahi Umar, Oct 02 2008
Read as a triangle this is A119468 with rows reversed. A119468 has e.g.f. exp(z*x)/(1-tanh(x)). - Peter Luschny, Aug 01 2012
Read as a triangle this is a subtriangle of A198793. - Philippe Deléham, Nov 10 2013

Examples

			Rows begin
  1 1  2   4   8 ...
  1 2  6  16  40 ...
  1 3 12  40 120 ...
  1 4 20  80 280 ...
  1 5 30 140 560 ...
Read as a triangle, this begins:
  1
  1, 1
  1, 2,  2
  1, 3,  6,  4
  1, 4, 12, 16,   8
  1, 5, 20, 40,  40, 16
  1, 6, 30, 80, 120, 96, 32
  ... - _Philippe Deléham_, Nov 10 2013
		

Crossrefs

Programs

Formula

Square array defined by T(n, k)=(2^(n-1)+0^n/2)C(n + k, n)= Sum{k=0..n, C(n+k, k+j)C(k+j, k)(1+(-1)^j)/2 }.
As an infinite lower triangular matrix, equals A007318 * A134309. - Gary W. Adamson, Oct 19 2007
O.g.f. for array read as a triangle: (1-x*(1+t))/((1-x)*(1-x*(1+2*t))) = 1 + x*(1+t) + x^2*(1+2*t+2*t^2) + x^3*(1+3*t+6*t^2+4*t^3) + .... - Peter Bala, Apr 26 2012
For array read as a triangle: T(n,k) = 2*T(n-1,k) + 2*T(n-1,k-1) - T(n-2,k) -2*T(n-2,k-1), T(0,0) = T(1,0) = T(1,1) = 1, T(n,k) = 0 if k<0 or if k>n. - Philippe Deléham, Nov 10 2013

A082139 A transform of binomial(n,5).

Original entry on oeis.org

1, 6, 42, 224, 1008, 4032, 14784, 50688, 164736, 512512, 1537536, 4472832, 12673024, 35094528, 95256576, 254017536, 666796032, 1725825024, 4410441728, 11142168576, 27855421440, 68975329280, 169303080960, 412216197120
Offset: 0

Views

Author

Paul Barry, Apr 06 2003

Keywords

Comments

Sixth row of number array A082137. C(n,5) has e.g.f. (x^5/5!)exp(x). The transform averages the binomial and inverse binomial transforms.

Examples

			a(0) = (2^(-1) + 0^0/2)*binomial(5,0) = 2*(1/2) = 1 (use 0^0 = 1).
		

Crossrefs

Programs

  • Magma
    [(Ceiling(Binomial(n+5, 5)*2^(n-1))) : n in [0..30]]; // Vincenzo Librandi, Sep 22 2011
    
  • Maple
    [seq (ceil(binomial(n+5,5)*2^(n-1)),n=0..23)]; # Zerinvary Lajos, Nov 01 2006
  • Mathematica
    Drop[With[{nmax = 56}, CoefficientList[Series[x^5*Exp[x]*Cosh[x]/5!, {x, 0, nmax}], x]*Range[0, nmax]!], 5] (* or *) Join[{1}, Table[2^(n-1)* Binomial[n+5,n], {n,1,30}]] (* G. C. Greubel, Feb 05 2018 *)
  • PARI
    my(x='x+O('x^30)); Vec(serlaplace(x^5*exp(x)*cosh(x)/5!)) \\ G. C. Greubel, Feb 05 2018

Formula

Equals 2 * A080952.
a(n) = (2^(n-1) + 0^n/2)*C(n+5, n).
a(n) = Sum_{j=0..n} C(n+5, j+5)*C(j+5, 5)*(1+(-1)^j)/2.
G.f.: (1 -6*x +30*x^2 -80*x^3 +120*x^4 -96*x^5 +32*x^6)/(1-2*x)^6.
E.g.f.: x^5*exp(x)*cosh(x)/5! (preceded by 5 zeros).
a(n) = ceiling(binomial(n+5,5)*2^(n-1)). - Zerinvary Lajos, Nov 01 2006
From Amiram Eldar, Jan 07 2022: (Start)
Sum_{n>=0} 1/a(n) = 20*log(2) - 38/3.
Sum_{n>=0} (-1)^n/a(n) = 1620*log(3/2) - 656. (End)

A082138 A transform of C(n,3).

Original entry on oeis.org

1, 4, 20, 80, 280, 896, 2688, 7680, 21120, 56320, 146432, 372736, 931840, 2293760, 5570560, 13369344, 31752192, 74711040, 174325760, 403701760, 928514048, 2122317824, 4823449600, 10905190400, 24536678400, 54962159616, 122607894528
Offset: 0

Views

Author

Paul Barry, Apr 06 2003

Keywords

Comments

Fourth row of number array A082137. C(n,3) has e.g.f. (x^3/3!)exp(x). The transform averages the binomial and inverse binomial transforms.

Examples

			a(0) = (2^(-1) + 0^0/2)*C(3,0) = 2*(1/2) = 1 (using 0^0=1).
		

Crossrefs

Programs

  • GAP
    a:=[4,20,80,280];; for n in [5..30] do a[n]:=8*a[n-1]-24*a[n-2] +32*a[n-3]-16*a[n-4]; od; Concatenation([1], a);
  • Magma
    [(Ceiling(Binomial(n+3, 3)*2^(n-1))) : n in [0..30]]; // Vincenzo Librandi, Sep 22 2011
    
  • Maple
    [seq (ceil(binomial(n+3,3)*2^(n-1)),n=0..30)]; # Zerinvary Lajos, Nov 01 2006
  • Mathematica
    Join[{1}, LinearRecurrence[{8,-24,32,-16}, {4,20,80,280}, 30]] (* G. C. Greubel, Jul 23 2019 *)
  • PARI
    my(x='x+O('x^30)); Vec((1-4*x+12*x^2-16*x^3 + 8*x^4)/(1-2*x)^4) \\ G. C. Greubel, Jul 23 2019
    
  • Sage
    ((1-4*x+12*x^2-16*x^3+8*x^4)/(1-2*x)^4).series(x, 30).coefficients(x, sparse=False) # G. C. Greubel, Jul 23 2019
    

Formula

a(n) = (2^(n-1) + 0^n/2)*C(n+3, n).
a(n) = Sum_{j=0..n} C(n+3, j+3)*C(j+3, 3)*(1 + (-1)^j)/2.
G.f.: (1 - 4*x + 12*x^2 - 16*x^3 + 8*x^4)/(1-2*x)^4.
E.g.f.: (x^3/3!)*exp(x)*cosh(x) (preceded by 3 zeros).
a(n) = ceiling(binomial(n+3,3)*2^(n-1)). - Zerinvary Lajos, Nov 01 2006
From Amiram Eldar, Jan 07 2022: (Start)
Sum_{n>=0} 1/a(n) = 12*log(2) - 7.
Sum_{n>=0} (-1)^n/a(n) = 108*log(3/2) - 43. (End)

A080928 Triangle T(n,k) read by rows: T(n,k) = Sum_{i=0..n} C(n,2i)*C(2i,k).

Original entry on oeis.org

1, 1, 0, 2, 2, 1, 4, 6, 3, 0, 8, 16, 12, 4, 1, 16, 40, 40, 20, 5, 0, 32, 96, 120, 80, 30, 6, 1, 64, 224, 336, 280, 140, 42, 7, 0, 128, 512, 896, 896, 560, 224, 56, 8, 1, 256, 1152, 2304, 2688, 2016, 1008, 336, 72, 9, 0, 512, 2560, 5760, 7680, 6720, 4032, 1680, 480, 90, 10
Offset: 0

Views

Author

Paul Barry, Feb 26 2003

Keywords

Comments

Gives the general solution to a(n) = 2*a(n-1) + k(k+2)*a(n-2), a(0) = a(1) = 1. The value k=1 gives the row sums of the triangle, or 1,1,5,13,... This is A046717, the solution to a(n) = 2*a(n-1) + 3*a(n-2), a(0)=a(1)=1.
Product of A007318 and A007318 with every odd-indexed row set to zero. - Paul Barry, Nov 08 2005

Examples

			Triangle begins:
    1;
    1,    0;
    2,    2,    1;
    4,    6,    3,    0;
    8,   16,   12,    4,    1;
   16,   40,   40,   20,    5,    0;
   32,   96,  120,   80,   30,    6,   1;
   64,  224,  336,  280,  140,   42,   7,  0;
  128,  512,  896,  896,  560,  224,  56,  8, 1;
  256, 1152, 2304, 2688, 2016, 1008, 336, 72, 9, 0; etc.
		

References

  • A. T. Benjamin and J. J. Quinn, Proofs that really count: the art of combinatorial proof, M.A.A. 2003, identity 156.
  • J-L. Kim, Relation between weight distribution and combinatorial identities, Bulletin of the Institute of Combinatorics and its Applications, Canada, 31, 2001, pp. 69-79.

Crossrefs

Apart from k=n, T(n, k) equals (1/2)*A038207(n, k).
Columns include A011782, 2*A001792, A080929, 4*A080930. Row sums are in A046717.

Programs

  • Mathematica
    Table[Sum[Binomial[n, 2 i] Binomial[2 i, k], {i, 0, n}], {n, 0, 10}, {k, 0, n}] // Flatten (* Michael De Vlieger, Oct 11 2018 *)

Formula

T(n, n) = (n+1) mod 2, T(n, k) = C(n, k)*2^(n-k-1).
T(n, 0) = A011782(n), T(n, k)=0, k>n, T(2n, 2n)=1, T(2n-1, 2n-1)=0, T(n+1, n)=n+1. Otherwise T(n, k) = T(n-1, k-1) + 2T(n-1, k). Rows are the coefficients of the polynomials in the expansion of (1-x)/((1+k*x)*(1-(k+2)*x)). The main diagonal is 1, 0, 1, 0, 1, 0, ... with g.f. 1/(1-x^2). Subsequent subdiagonals are given by A011782(k)*C(n+k, k) with g.f. A011782(k)/(1-x)^k.
T(n, k) = Sum_{j=0..n} C(n, j)*C(j, k)*(1+(-1)^j)/2; T(n, k) = 2^(n-k-1)*(C(n, k) + (-1)^n*C(0, n-k)). - Paul Barry, Nov 08 2005

Extensions

Edited by Ralf Stephan, Feb 04 2005

A080951 Sequence associated with recurrence a(n) = 2*a(n-1) + k*(k+2)*a(n-2).

Original entry on oeis.org

1, 5, 30, 140, 560, 2016, 6720, 21120, 63360, 183040, 512512, 1397760, 3727360, 9748480, 25067520, 63504384, 158760960, 392232960, 958791680, 2321285120, 5571084288, 13264486400, 31352422400, 73610035200, 171756748800, 398475657216, 919559208960, 2111580405760
Offset: 0

Views

Author

Paul Barry, Feb 26 2003

Keywords

Comments

Fifth column of triangle A080928.

Crossrefs

Programs

  • GAP
    a:=[5,30,140,560,2016];; for n in [6..30] do a[n]:=10*a[n-1] -40*a[n-2]+80*a[n-3]-80*a[n-4]+32*a[n-5]; od; Concatenation([1], a); # G. C. Greubel, Jul 23 2019
  • Magma
    [(Ceiling(Binomial(n+4, 4)*2^(n-1))) : n in [0..30]]; // Vincenzo Librandi, Sep 22 2011
    
  • Maple
    [seq( ceil(binomial(n+4,4)*2^(n-1)),n=0..30)]; # Zerinvary Lajos, Nov 01 2006
  • Mathematica
    Join[{1}, LinearRecurrence[{10,-40,80,-80,32}, {5,30,140,560,2016}, 30]] (* G. C. Greubel, Jul 23 2019 *)
  • PARI
    my(x='x+O('x^30)); Vec((1-x)*(1-4*x+16*x^2-24*x^3 +16*x^4)/(1 -2*x)^5) \\ G. C. Greubel, Jul 23 2019
    
  • Sage
    ((1-x)*(1-4*x+16*x^2-24*x^3+16*x^4)/(1-2*x)^5).series(x, 30).coefficients(x, sparse=False) # G. C. Greubel, Jul 23 2019
    

Formula

G.f.: (1-x)*(1 - 4*x + 16*x^2 - 24*x^3 + 16*x^4)/(1-2*x)^5.
a(n) = ceiling(binomial(n+4,4)*2^(n-1)). - Zerinvary Lajos, Nov 01 2006
From Amiram Eldar, Jan 07 2022: (Start)
Sum_{n>=0} 1/a(n) = 37/3 - 16*log(2).
Sum_{n>=0} (-1)^n/a(n) = 432*log(3/2) - 523/3. (End)
E.g.f.: (3 + exp(2*x)*(3 + 24*x + 36*x^2 + 16*x^3 + 2*x^4))/6. - Stefano Spezia, Sep 02 2025

A052482 a(n) = 2^(n-2)*binomial(n+1,2).

Original entry on oeis.org

3, 12, 40, 120, 336, 896, 2304, 5760, 14080, 33792, 79872, 186368, 430080, 983040, 2228224, 5013504, 11206656, 24903680, 55050240, 121110528, 265289728, 578813952, 1258291200, 2726297600, 5888802816, 12683575296, 27246198784, 58384711680, 124822487040
Offset: 2

Views

Author

N. J. A. Sloane, Mar 16 2000

Keywords

Comments

Also the number of 4-cycles in the (n+1)-folded cube graph for n > 3. - Eric W. Weisstein, Mar 21 2018

Crossrefs

Essentially the same as A080929.
Cf. A301459 (6-cycles in the n-folded cube graph).

Programs

  • Mathematica
    Table[2^(n - 2) Binomial[n + 1, 2], {n, 2, 28}] (* Michael De Vlieger, Sep 21 2017 *)
    LinearRecurrence[{6, -12, 8}, {3, 12, 40}, 20] (* Eric W. Weisstein, Mar 21 2018 *)
    CoefficientList[Series[(-3 + 6 x - 4 x^2)/(-1 + 2 x)^3, {x, 0, 20}], x] (* Eric W. Weisstein, Mar 21 2018 *)
  • PARI
    Vec(x^2*(3 - 6*x + 4*x^2) / (1 - 2*x)^3 + O(x^40)) \\ Colin Barker, Sep 22 2017

Formula

a(n) = (1/2) * Sum_{k=0..n-1} Sum_{i=0..n-1} (k+1) * C(n-1,i). - Wesley Ivan Hurt, Sep 20 2017
From Colin Barker, Sep 22 2017: (Start)
G.f.: x^2*(3 - 6*x + 4*x^2) / (1 - 2*x)^3.
a(n) = 2^(n-3)*n*(1 + n).
a(n) = 6*a(n-1) - 12*a(n-2) + 8*a(n-3) for n>4.
(End)

A340257 a(n) = 2^n * (1+n*(n+1)/2).

Original entry on oeis.org

1, 4, 16, 56, 176, 512, 1408, 3712, 9472, 23552, 57344, 137216, 323584, 753664, 1736704, 3964928, 8978432, 20185088, 45088768, 100139008, 221249536, 486539264, 1065353216, 2323644416, 5049942016, 10938744832, 23622320128, 50868518912, 109253230592, 234075717632
Offset: 0

Views

Author

Alois P. Heinz, Jan 02 2021

Keywords

Crossrefs

Programs

  • Maple
    a:= n-> 2^n*(1+n*(n+1)/2):
    seq(a(n), n=0..30);
  • Mathematica
    Table[2^n (1+(n(n+1))/2),{n,0,30}] (* or *) LinearRecurrence[{6,-12,8},{1,4,16},30] (* Harvey P. Dale, Jan 19 2023 *)

Formula

G.f.: (4*x^2-2*x+1)/(1-2*x)^3.
E.g.f.: exp(2*x)*(2*x^2+2*x+1).
a(n) = A000079(n) + A001815(n+1).
a(n) = A000079(n) * A000124(n).
a(n) = 2*a(n-1) + n*2^n = 2*a(n-1) + A036289(n), assuming a(-1) = 1/2.
a(n) = A340298(2^n).
a(n) = 2 * A087431(n) for n > 0.
a(n) = 4 * A007466(n) for n > 0.

A082149 A transform of C(n,2).

Original entry on oeis.org

0, 0, 1, 6, 30, 140, 615, 2562, 10220, 39384, 147645, 541310, 1948650, 6908772, 24180611, 83702010, 286978200, 975725744, 3293074233, 11041484022, 36804946550, 122037454140, 402723598431, 1323234680306, 4330586226180
Offset: 0

Views

Author

Paul Barry, Apr 07 2003

Keywords

Comments

Represents the mean of C(n,2) with its second binomial transform. Binomial transform of A080929 (preceded by two zeros).

Crossrefs

Programs

  • Magma
    [Binomial(n,2)*(1 + 3^(n-2))/2: n in [0..30]]; // G. C. Greubel, Feb 10 2018
  • Mathematica
    CoefficientList[Series[(x^2/(1-3*x)^3 + x^2/(1-x)^3)/2, {x,0,50}], x] (* or *) Table[Binomial[n,2]*(1 + 3^(n-2))/2, {n,0,30}] (* G. C. Greubel, Feb 10 2018 *)
    LinearRecurrence[{12,-57,136,-171,108,-27},{0,0,1,6,30,140},30] (* Harvey P. Dale, Aug 11 2021 *)
  • PARI
    for(n=0,30, print1(binomial(n,2)*(1 + 3^(n-2))/2, ", ")) \\ G. C. Greubel, Feb 10 2018
    

Formula

a(n) = C(n, 2)*(3^(n-2) + 1)/2.
G.f.: (x^2/(1-3x)^3+x^2/(1-x)^3)/2.
G.f.: x^2(14*x^3-15*x^2+6*x-1)/((1-x)^3*(3*x-1)^3).
E.g.f.: x^2*exp(2*x)*cosh(x)/2.
Showing 1-10 of 11 results. Next