A128134 -id:A128134 - cp's OEIS frontend

A128135 Row sums of A128134.

1, 3, 10, 28, 72, 176, 416, 960, 2176, 4864, 10752, 23552, 51200, 110592, 237568, 507904, 1081344, 2293760, 4849664, 10223616, 21495808, 45088768, 94371840, 197132288, 411041792, 855638016, 1778384896, 3690987520, 7650410496, 15837691904, 32749125632, 67645734912, 139586437120, 287762808832

Offset: 1

Gary W. Adamson, Feb 16 2007

Conjecture: a(n)/a(n-1) tends to sqrt(5). (E.g., a(10)/a(9) = 2.235294....)
The conjecture is false. The fraction a(n)/a(n-1) tends to 2 as n grows. - Philipp Zumstein (zuphilip(AT)inf.ethz.ch), Oct 05 2009
This sequence is a subsequence of a greedily and recursively defined sequence (see links). - Sela Fried, Aug 30 2024
For n>=2, a(n) is the total number of ones in runs of ones of length >=3 over all binary strings of length n+1. - Félix Balado, Aug 06 2025

			a(4) = 28 = sum of row 4 of A128134 = 3 + 10 + 11 + 4.

Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Sela Fried, On integer sequence A128135, 2024.
Sela Fried, Proofs of some Conjectures from the OEIS, arXiv:2410.07237 [math.NT], 2024. See p. 11.
Guo-Niu Han, Enumeration of Standard Puzzles, 2011. [Cached copy]
Guo-Niu Han, Enumeration of Standard Puzzles, arXiv:2006.14070 [math.CO], 2020.
Index entries for linear recurrences with constant coefficients, signature (4,-4).

Cf. A128132, A128133, A128134, A134315.

I:=[1, 3, 10]; [n le 3 select I[n] else 4*Self(n-1)-4*Self(n-2): n in [1..40]]; // Vincenzo Librandi, Jun 28 2012

CoefficientList[Series[(1-x+2*x^2)/(1-2*x)^2,{x,0,40}],x] (* Vincenzo Librandi, Jun 28 2012 *)
LinearRecurrence[{4,-4},{1,3,10},40] (* Harvey P. Dale, May 26 2023 *)

a(n)=if(n<=2,[1,3][n],2*a(n-1)+2^(n-1)); /* Joerg Arndt, Sep 29 2012 */

Row sums of A128134.
Equals A134315 * [1, 2, 3, ...]. - Gary W. Adamson, Oct 19 2007
a(n) = 2*a(n-1) + 2^(n-1) for n >= 2. - Philipp Zumstein (zuphilip(AT)inf.ethz.ch), Oct 05 2009
From Colin Barker, May 29 2012: (Start)
a(n) = 2^(n - 2)*(2*n - 1) for n > 1.
a(n) = 4*a(n-1) - 4*a(n-2) for n > 3.
G.f.: x*(1 - x + 2*x^2)/(1 - 2*x)^2. (End)
G.f.: (1 - G(0))/2 where G(k) = 1 - (2*k + 2)/(1 - x/(x - (k + 1)/G(k+1))) (recursively defined continued fraction). - Sergei N. Gladkovskii, Dec 06 2012
From Amiram Eldar, Aug 05 2020: (Start)
Sum_{n>=1} 1/a(n) = 2*sqrt(2)*arcsinh(1) - 1.
Sum_{n>=1} (-1)^(n+1)/a(n) = 2*sqrt(2)*arccot(sqrt(2)) - 1. (End)

More terms from Philipp Zumstein (zuphilip(AT)inf.ethz.ch), Oct 05 2009

Incorrect formula deleted by Colin Barker, May 29 2012

A128132 A natural number transform, companion to A127701.

Original entry on oeis.org

1, -1, 2, 0, -1, 3, 0, 0, -1, 4, 0, 0, 0, -1, 5, 0, 0, 0, 0, -1, 6, 0, 0, 0, 0, 0, -1, 7, 0, 0, 0, 0, 0, 0, -1, 8, 0, 0, 0, 0, 0, 0, 0, -1, 9, 0, 0, 0, 0, 0, 0, 0, 0, -1, 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, 12

Offset: 1

Gary W. Adamson, Feb 15 2007

Binomial transform is A128133.

			Triangle T(n,k) (with rows n >= 1 and columns k = 1..n) begins:
   1;
  -1,  2;
   0, -1,  3;
   0,  0, -1,  4;
   0,  0,  0, -1,  5;
   0,  0,  0,  0, -1, 6;
   ...

Cf. A127701, A128133, A128134.

A128132 := proc(n,k)
    if n = k then
        n;
    elif k = n-1 then
        -1 ;
    else
        0 ;
    end if;
end proc: # R. J. Mathar, Apr 26 2016

{1}~Join~Table[PadLeft[{-1, n}, n], {n, 2, 12}] // Flatten (* Michael De Vlieger, Apr 26 2016 *)

T(n,n) = n.
T(n,n-1) = -1.
T(n,k) = 0 for k <> n, n-1.

A128133 Binomial transform of A128132.

Original entry on oeis.org

1, 0, 2, -1, 3, 3, -2, 3, 8, 4, -3, 2, 14, 15, 5, -4, 0, 20, 35, 24, 6, -5, -3, 25, 65, 69, 35, 7, -6, -7, 28, 105, 154, 119, 48, 8, -7, -12, 28, 154, 294, 308, 188, 63, 9, -8, -18, 24, 210, 504, 672, 552, 279, 80, 10

Offset: 1

Gary W. Adamson, Feb 15 2007

Row sums = A005183: (1, 2, 5, 13, 33, 81, 193, ...).

A128132 * A007318 = A128134.

			First few rows of the triangle:
   1;
   0,  2;
  -1,  3,  3;
  -2,  3,  8,  4;
  -3,  2, 14, 15,  5;
  -4,  0, 20, 35, 24,  6;
  -5, -3, 25, 65, 69, 35,  7;
  ...

Cf. A128132, A007318, A128134, A005183.

A007318 * A128132 as infinite lower triangular matrices.

A332697 a(n) = (n^4 + 5n^3 + 11n^2 + 7*n)/6.

Original entry on oeis.org

0, 4, 19, 56, 130, 260, 469, 784, 1236, 1860, 2695, 3784, 5174, 6916, 9065, 11680, 14824, 18564, 22971, 28120, 34090, 40964, 48829, 57776, 67900, 79300, 92079, 106344, 122206, 139780, 159185, 180544, 203984, 229636, 257635, 288120, 321234, 357124, 395941, 437840

Offset: 0

Peter Luschny, Feb 20 2020

Harvey P. Dale, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (5,-10,10,-5,1).

Cf. A332023.

Column k = 4 of A128134 (shifted).

[(5*n^3 + 11*n^2 + 7*n + n^4)/6 : n in [0..50]]; // Wesley Ivan Hurt, Jul 26 2020

a := n ->(5*n^3 + 11*n^2 + 7*n + n^4)/6: seq(a(n), n=0..50);

Table[(n^4+5n^3+11n^2+7n)/6,{n,0,40}] (* or *) LinearRecurrence[{5,-10,10,-5,1},{0,4,19,56,130},40] (* Harvey P. Dale, Apr 09 2022 *)

Row sums of A332023.

G.f.: x*(x^2 - x + 4)/(1 - x)^5. - Petros Hadjicostas, Jul 26 2020

cp's OEIS Frontend

A128135 Row sums of A128134.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Formula

Extensions

A128132 A natural number transform, companion to A127701.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Maple

Mathematica

Formula

A128133 Binomial transform of A128132.

Views

Author

Keywords

Comments

Examples

Crossrefs

Formula

A332697 a(n) = (n^4 + 5*n^3 + 11*n^2 + 7*n)/6.

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Maple

Mathematica

Formula

A332697 a(n) = (n^4 + 5n^3 + 11n^2 + 7*n)/6.