A173173 -id:A173173 - cp's OEIS frontend

A185646 Square array A(n,m), n>=0, m>=0, read by antidiagonals, where column m is the expansion of g.f. 1/ (1-x^1(1-x^(m+1))/ (1-x^2(1-x^(m+2))/ (1- ... ))).

1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 2, 1, -1, 1, 1, 1, 2, 2, 1, 0, 1, 1, 1, 2, 3, 3, 1, 0, 1, 1, 1, 2, 3, 4, 5, 1, -1, 1, 1, 1, 2, 3, 5, 7, 6, 1, 0, 1, 1, 1, 2, 3, 5, 8, 11, 10, 1, 0, 1, 1, 1, 2, 3, 5, 9, 13, 17, 14, 1, 0, 1, 1, 1, 2, 3, 5, 9, 14, 22, 28, 21, 1, 0

Offset: 0

Alois P. Heinz, Aug 29 2013

			Square array A(n,m) begins:
   1,  1,  1,  1,  1,  1,  1,  1,  1, ...
   1,  1,  1,  1,  1,  1,  1,  1,  1, ...
   0,  1,  1,  1,  1,  1,  1,  1,  1, ...
   0,  1,  2,  2,  2,  2,  2,  2,  2, ...
   0,  1,  2,  3,  3,  3,  3,  3,  3, ...
  -1,  1,  3,  4,  5,  5,  5,  5,  5, ...
   0,  1,  5,  7,  8,  9,  9,  9,  9, ...
   0,  1,  6, 11, 13, 14, 15, 15, 15, ...
  -1,  1, 10, 17, 22, 24, 25, 26, 26, ...

Alois P. Heinz, Antidiagonals n = 0..140, flattened
Paul D. Hanna et al., Formula Needed for a Family of Continued Fractions and follow-up messages on the SeqFan list, Jul 28 2013

Columns m=0-10 give: A143064, A000012, A227360, A173173(n+1), A227374, A227375, A228646, A228644, A185648, A228645, A185649.

Diagonal gives: A005169.

nMax = 12; col[m_ /; 0 <= m <= nMax] := 1/(1 + ContinuedFractionK[-x^k (1 - x^(m + k)), 1, {k, 1, Ceiling[nMax/2]}]) + O[x]^(2 nMax) // CoefficientList[#, x]&; A = Table[col[m][[1 ;; nMax + 1]], {m, 0, nMax}] // Transpose; a[n_ /; 0 <= n <= nMax, m_ /; 0 <= m <= nMax] := With[{n1 = n + 1, m1 = m + 1}, A[[n1, m1]]]; Table[a[n - m, m], {n, 0, nMax}, {m, n, 0, -1}] // Flatten (* Jean-François Alcover, Nov 03 2016 *)

A227375 G.f.: 1/(1 - x(1-x^6)/(1 - x^2(1-x^7)/(1 - x^3(1-x^8)/(1 - x^4(1-x^9)/(1 - x^5*(1-x^10)/(1 - ...)))))), a continued fraction.

Original entry on oeis.org

1, 1, 1, 2, 3, 5, 9, 14, 24, 41, 69, 118, 200, 340, 579, 985, 1677, 2854, 4858, 8270, 14078, 23966, 40798, 69453, 118235, 201280, 342655, 583328, 993046, 1690543, 2877949, 4899369, 8340598, 14198887, 24171937, 41149884, 70052848, 119256753, 203020631, 345618810, 588375486, 1001640259

Offset: 0

Paul D. Hanna, Jul 09 2013

nonn

Radius of convergence r is a root of 1 - r - r^2 - r^3 + r^5 + r^6 + r^7 = 0,
where r = Limit a(n)/a(n+1) = 0.587411973105598587998520092901249815195963...
Compare to sequence A227376, generated by 1/(1-x-x^2-x^3+x^5+x^6+x^7).

			G.f.: A(x) = 1 + x + x^2 + 2*x^3 + 3*x^4 + 5*x^5 + 9*x^6 + 14*x^7 + 24*x^8 +...

Index entries for linear recurrences with constant coefficients, signature (1, 1, 1, 0, 0, -2, -2, -1, 0, 1, 1, 1).

Cf. A173173, A227374, A227360, A227376, A228644, A228645.

Column m=5 of A185646.

nMax = 42; col[m_ /; 0 <= m <= nMax] := 1/(1 + ContinuedFractionK[-x^k (1 - x^(m + k)), 1, {k, 1, Ceiling[nMax/2]}]) + O[x]^(2 nMax) // CoefficientList[#, x]&; A227375 = col[5][[1 ;; nMax]] (* Jean-François Alcover, Nov 03 2016 *)
LinearRecurrence[{1,1,1,0,0,-2,-2,-1,0,1,1,1},{1,1,1,2,3,5,9,14,24,41,69,118},50] (* Harvey P. Dale, Jul 08 2023 *)

a(n)=local(CF); CF=1+x; for(k=0, n, CF=1/(1 - x^(n-k+1)*(1 - x^(n-k+6))*CF+x*O(x^n))); polcoeff(CF, n)
for(n=0,50,print1(a(n),", "))

/* From R. J. Mathar's g.f. formula: */
{a(n)=polcoeff((1-x-x^4)*(1+x-x^3-x^4-x^5)/((1-x^5)*(1-x-x^2-x^3+x^5+x^6+x^7) +x*O(x^n)),n)}
for(n=0,50,print1(a(n),", ")) \\ Paul D. Hanna, Jul 18 2013

Conjecture: G.f. -(x^4+x-1)*(x^5+x^4+x^3-x-1) / ( (x-1)*(x^4+x^3+x^2+x+1)*(x^7+x^6+x^5-x^3-x^2-x+1) ). - R. J. Mathar, Jul 17 2013

A227360 G.f.: 1/(1 - x(1-x^3)/(1 - x^2(1-x^4)/(1 - x^3(1-x^5)/(1 - x^4(1-x^6)/(1 - ...))))), a continued fraction.

Original entry on oeis.org

1, 1, 1, 2, 2, 3, 5, 6, 10, 14, 21, 32, 46, 71, 104, 157, 235, 350, 527, 785, 1179, 1763, 2639, 3954, 5915, 8861, 13262, 19857, 29731, 44507, 66640, 99765, 149366, 223625, 334795, 501247, 750434, 1123518, 1682076, 2518314, 3770306, 5644701, 8450977, 12652376

Offset: 0

Paul D. Hanna, Jul 08 2013

nonn

Compare to the continued fraction representation for the g.f. of A173173, where A173173(n) = ceiling(Fibonacci(n)/2).

Limit a(n)/a(n+1) = 0.6679357039724580760720733281356826861233293827578332775311...

			G.f.: A(x) = 1 + x + x^2 + 2*x^3 + 2*x^4 + 3*x^5 + 5*x^6 + 6*x^7 + 10*x^8 +...

Alois P. Heinz, Table of n, a(n) for n = 0..1000

Cf. A173173, A227374, A227375, A228644, A228645.

Column m=2 of A185646.

nMax = 44; col[m_ /; 0 <= m <= nMax] := 1/(1 + ContinuedFractionK[-x^k (1 - x^(m + k)), 1, {k, 1, Ceiling[nMax/2]}]) + O[x]^(2 nMax) // CoefficientList[#, x] &; A227360 = col[2][[1 ;; nMax]] (* Jean-François Alcover, Nov 03 2016 *)

{a(n)=local(CF); CF=1+x; for(k=0, n, CF=1/(1 - x^(n-k+1)*(1 - x^(n-k+3))*CF+x*O(x^n))); polcoeff(CF, n)}
for(n=0,50,print1(a(n),", "))

A227374 G.f.: 1/(1 - x(1-x^5)/(1 - x^2(1-x^6)/(1 - x^3(1-x^7)/(1 - x^4(1-x^8)/(1 - x^5*(1-x^9)/(1 - ...)))))), a continued fraction.

Original entry on oeis.org

1, 1, 1, 2, 3, 5, 8, 13, 22, 36, 61, 101, 169, 283, 473, 793, 1325, 2220, 3715, 6220, 10413, 17431, 29185, 48856, 81797, 136937, 229257, 383813, 642564, 1075762, 1800995, 3015171, 5047886, 8451001, 14148368, 23686705, 39655467, 66389797, 111147511, 186079299, 311527531, 521548600

Offset: 0

Paul D. Hanna, Jul 09 2013

nonn

Limit a(n)/a(n+1) = 0.597312551712707899432116871133154503665320273329853...

			G.f.: A(x) = 1 + x + x^2 + 2*x^3 + 3*x^4 + 5*x^5 + 8*x^6 + 13*x^7 + 22*x^8 +...

Alois P. Heinz, Table of n, a(n) for n = 0..1000

Cf. A173173, A227360, A227375, A228644, A228645.

Column m=4 of A185646.

nMax = 42; col[m_ /; 0 <= m <= nMax] := 1/(1 + ContinuedFractionK[-x^k (1 - x^(m + k)), 1, {k, 1, Ceiling[nMax/2]}]) + O[x]^(2 nMax) // CoefficientList[#, x]&; A227374 = col[4][[1 ;; nMax]] (* Jean-François Alcover, Nov 03 2016 *)

{a(n)=local(CF); CF=1+x; for(k=0, n, CF=1/(1 - x^(n-k+1)*(1 - x^(n-k+5))*CF+x*O(x^n))); polcoeff(CF, n)}
for(n=0,50,print1(a(n),", "))

G.f.: T(0), where T(k) = 1 - x^(k+1)*(1-x^(k+5))/(x^(k+1)*(1-x^(k+5)) - 1/T(k+1) ); (continued fraction). - Sergei N. Gladkovskii, Oct 18 2013

A228644 Expansion of g.f. 1/ (1-x^1(1-x^(m+1))/ (1-x^2(1-x^(m+2))/ (1- ... ))) for m=7.

Original entry on oeis.org

1, 1, 1, 2, 3, 5, 9, 15, 26, 44, 76, 131, 225, 389, 670, 1156, 1994, 3439, 5934, 10236, 17661, 30470, 52569, 90699, 156483, 269985, 465811, 803677, 1386609, 2392357, 4127611, 7121498, 12286951, 21199078, 36575462, 63104849, 108876873, 187848862, 324101847

Offset: 0

Alois P. Heinz, Aug 28 2013

nonn

Alois P. Heinz, Table of n, a(n) for n = 0..1000
Paul D. Hanna et al., Formula Needed for a Family of Continued Fractions and follow-up messages on the SeqFan list, Jul 28 2013
Index entries for linear recurrences with constant coefficients, signature (1,1,1,0,0,-1,-1,-3,-2,-1,0,2,2,3,3,1,0,0,-2,-1,-1,-1).

Cf. A143064 (m=0), A227360 (m=2), A173173 (m=3), A227374 (m=4), A227375 (m=5), A228646(m=6), A228645 (m=9).

Column m=7 of A185646.

a:= n-> coeff(series(-(x^18 +x^17 +x^16 +2*x^15 +x^14 -2*x^11 -2*x^10 -2*x^9 -2*x^8 +x^5 +x^4 +x^3 +x^2-1) / ((x-1)*(x^6 +x^5 +x^4 +x^3 +x^2 +x +1)*(x^15 +x^14 +x^13 +2*x^12 -x^9 -2*x^8 -2*x^7 -x^6 +x^3 +x^2 +x-1)), x, n+1), x, n): seq(a(n), n=0..50);

nMax = 39; col[m_ /; 0 <= m <= nMax] := 1/(1 + ContinuedFractionK[-x^k (1 - x^(m + k)), 1, {k, 1, Ceiling[nMax/2]}]) + O[x]^(2 nMax) // CoefficientList[#, x]&; A228644 = col[7][[1 ;; nMax]] (* Jean-François Alcover, Nov 03 2016 *)

G.f.: -(x^18 +x^17 +x^16 +2*x^15 +x^14 -2*x^11 -2*x^10 -2*x^9 -2*x^8 +x^5 +x^4 +x^3 +x^2-1) / ((x-1)*(x^6 +x^5 +x^4 +x^3 +x^2 +x +1)*(x^15 +x^14 +x^13 +2*x^12 -x^9 -2*x^8 -2*x^7 -x^6 +x^3 +x^2 +x-1)).

A228645 Expansion of g.f. 1/ (1-x^1(1-x^(m+1))/ (1-x^2(1-x^(m+2))/ (1- ... ))) for m=9.

Original entry on oeis.org

1, 1, 1, 2, 3, 5, 9, 15, 26, 45, 78, 134, 232, 402, 695, 1205, 2086, 3613, 6259, 10841, 18780, 32531, 56354, 97621, 169111, 292954, 507488, 879136, 1522947, 2638242, 4570298, 7917253, 13715281, 23759370, 41159039, 71300984, 123516755, 213971647, 370669282

Offset: 0

Alois P. Heinz, Aug 28 2013

nonn

Alois P. Heinz, Table of n, a(n) for n = 0..1000
Paul D. Hanna et al., Formula Needed for a Family of Continued Fractions and follow-up messages on the SeqFan list, Jul 28 2013
Index entries for linear recurrences with constant coefficients, signature (1, 1, 1, 0, 0, -1, -1, -2, -1, -3, -2, 0, 1, 3, 4, 4, 4, 4, 2, 0, -2, -3, -5, -4, -4, -3, -2, 0, 1, 1, 2, 2, 1, 1, 1).

Cf. A143064 (m=0), A227360 (m=2), A173173 (m=3), A227374 (m=4), A227375 (m=5), A228646 (m=6), A228644 (m=7).

Column m=9 of A185646.

a:= n-> coeff(series(-(x^30 +x^29 +x^28 +2*x^27 +2*x^26 +2*x^25 +x^24 +x^23 -x^22 -2*x^21 -2*x^20 -4*x^19 -4*x^18 -3*x^17 -2*x^16 -x^15 +2*x^13 +2*x^12 +3*x^11 +3*x^10 +x^9 +x^8 -x^5 -x^4 -x^3 -x^2+1) / ((x-1)*(x^2 +x+1)*(x^6 +x^3+1)*(x^26 +x^25 +x^24 +2*x^23 +2*x^22 +x^21 +x^20 -2*x^18 -2*x^17 -3*x^16 -3*x^15 -3*x^14 -x^13 -x^12 +x^11 +2*x^10 +2*x^9 +2*x^8 +x^7 +x^6 -x^3 -x^2 -x+1)), x, n+1), x, n): seq(a(n), n=0..50);

nMax = 39; col[m_ /; 0 <= m <= nMax] := 1/(1 + ContinuedFractionK[-x^k (1 - x^(m + k)), 1, {k, 1, Ceiling[nMax/2]}]) + O[x]^(2 nMax) // CoefficientList[#, x] &; A228645 = col[9][[1 ;; nMax]] (* Jean-François Alcover, Nov 03 2016 *)

G.f.: -(x^30 +x^29 +x^28 +2*x^27 +2*x^26 +2*x^25 +x^24 +x^23 -x^22 -2*x^21 -2*x^20 -4*x^19 -4*x^18 -3*x^17 -2*x^16 -x^15 +2*x^13 +2*x^12 +3*x^11 +3*x^10 +x^9 +x^8 -x^5 -x^4 -x^3 -x^2+1) / ((x-1)*(x^2 +x+1)*(x^6 +x^3+1)*(x^26 +x^25 +x^24 +2*x^23 +2*x^22 +x^21 +x^20 -2*x^18 -2*x^17 -3*x^16 -3*x^15 -3*x^14 -x^13 -x^12 +x^11 +2*x^10 +2*x^9 +2*x^8 +x^7 +x^6 -x^3 -x^2 -x+1)).

A228646 Expansion of g.f. 1/ (1-x^1(1-x^(m+1))/ (1-x^2(1-x^(m+2))/ (1- ... ))) for m=6.

Original entry on oeis.org

1, 1, 1, 2, 3, 5, 9, 15, 25, 43, 74, 126, 217, 372, 638, 1096, 1881, 3230, 5546, 9524, 16353, 28083, 48224, 82811, 142208, 244204, 419360, 720144, 1236670, 2123670, 3646879, 6262611, 10754485, 18468174, 31714525, 54461873, 93524824, 160605817, 275800867

Offset: 0

Alois P. Heinz, Aug 28 2013

nonn

Alois P. Heinz, Table of n, a(n) for n = 0..1000
Paul D. Hanna et al., Formula Needed for a Family of Continued Fractions and follow-up messages on the SeqFan list, Jul 28 2013

Cf. A143064 (m=0), A227360 (m=2), A173173 (m=3), A227374 (m=4), A227375 (m=5), A228644 (m=7), A228645 (m=9).

Column m=6 of A185646.

nMax = 39; col[m_ /; 0 <= m <= nMax] := 1/(1 + ContinuedFractionK[-x^k (1 - x^(m + k)), 1, {k, 1, Ceiling[nMax/2]}]) + O[x]^(2 nMax) // CoefficientList[#, x]&; A228646 = col[6][[1 ;; nMax]] (* Jean-François Alcover, Nov 03 2016 *)

A293505 a(n) is the integer k that minimizes |k/Fibonacci(n) - 1/2|.

Original entry on oeis.org

0, 0, 0, 1, 2, 2, 4, 6, 10, 17, 28, 44, 72, 116, 188, 305, 494, 798, 1292, 2090, 3382, 5473, 8856, 14328, 23184, 37512, 60696, 98209, 158906, 257114, 416020, 673134, 1089154, 1762289, 2851444, 4613732, 7465176, 12078908, 19544084, 31622993, 51167078

Offset: 0

Clark Kimberling, Oct 12 2017

Clark Kimberling, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (1, 1, 0, 0, 0, 1, -1, -1)

Cf. A000045, A004695, A293505.

z = 120; r = 1/2; f[n_] := Fibonacci[n];
Table[Floor[r*f[n]], {n, 0, z}];   (* A004695 *)
Table[Ceiling[r*f[n]], {n, 0, z}]; (* A173173 *)
Table[Round[r*f[n]], {n, 0, z}];   (* A293505 *)

G.f.: -((x^3 (-1 - x + x^2))/((-1 + x) (1 + x) (1 - x + x^2) (-1 + x + x^2) (1 + x + x^2))).
a(n) = a(n-1) + a(n-2) + a(n-6) - a(n-7) - a(n-8) for n >= 9.
a(n) = floor(1/2 + Fibonacci(n)/2).
a(n) = A004695(n) if (fractional part of Fibonacci(n)/2) < 1/2, otherwise a(n) = A293419(n).

A179018 Partial sums of ceiling(Fibonacci(n)/2).

Original entry on oeis.org

0, 1, 2, 3, 5, 8, 12, 19, 30, 47, 75, 120, 192, 309, 498, 803, 1297, 2096, 3388, 5479, 8862, 14335, 23191, 37520, 60704, 98217, 158914, 257123, 416029, 673144, 1089164

Offset: 0

Mircea Merca, Jan 04 2011

Partial sums of A173173.

			a(4) = 0 + 1 + 1 + 1 + 2 = 5.

Mircea Merca, Inequalities and Identities Involving Sums of Integer Functions J. Integer Sequences, Vol. 14 (2011), Article 11.9.1.
Index entries for linear recurrences with constant coefficients, signature (2,0,0,-2,0,1).

Cf. A173173.

seq(ceil(Fibonacci(n+2)/2+n/3-1/2),n=0..30)

a(n)=(3*fibonacci(n+2)+2*n-1)\6 \\ Charles R Greathouse IV, Nov 02 2015

a(n) = round(Fibonacci(n+2)/2 + (n-1)/3).
a(n) = round(Fibonacci(n+2)/2 + n/3 - 1/2).
a(n) = floor(Fibonacci(n+2)/2 + n/3 - 1/6).
a(n) = ceiling(Fibonacci(n+2)/2 + n/3 - 1/2).
a(n) = a(n-3) + Fibonacci(n)+1, n > 2.
a(n) = 2*a(n-1) - 2*a(n-4) + a(n-6), n > 5.
G.f.: x*(x^3+x^2-1) / ( (x^2+x+1)*(x^2+x-1)*(x-1)^2 ).

cp's OEIS Frontend

A185646 Square array A(n,m), n>=0, m>=0, read by antidiagonals, where column m is the expansion of g.f. 1/ (1-x^1*(1-x^(m+1))/ (1-x^2*(1-x^(m+2))/ (1- ... ))).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

A227375 G.f.: 1/(1 - x*(1-x^6)/(1 - x^2*(1-x^7)/(1 - x^3*(1-x^8)/(1 - x^4*(1-x^9)/(1 - x^5*(1-x^10)/(1 - ...)))))), a continued fraction.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

PARI

Formula

A227360 G.f.: 1/(1 - x*(1-x^3)/(1 - x^2*(1-x^4)/(1 - x^3*(1-x^5)/(1 - x^4*(1-x^6)/(1 - ...))))), a continued fraction.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

A227374 G.f.: 1/(1 - x*(1-x^5)/(1 - x^2*(1-x^6)/(1 - x^3*(1-x^7)/(1 - x^4*(1-x^8)/(1 - x^5*(1-x^9)/(1 - ...)))))), a continued fraction.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A228644 Expansion of g.f. 1/ (1-x^1*(1-x^(m+1))/ (1-x^2*(1-x^(m+2))/ (1- ... ))) for m=7.

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A228645 Expansion of g.f. 1/ (1-x^1*(1-x^(m+1))/ (1-x^2*(1-x^(m+2))/ (1- ... ))) for m=9.

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A228646 Expansion of g.f. 1/ (1-x^1*(1-x^(m+1))/ (1-x^2*(1-x^(m+2))/ (1- ... ))) for m=6.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

A293505 a(n) is the integer k that minimizes |k/Fibonacci(n) - 1/2|.

Views

Author

Keywords

Links

Crossrefs

A185646 Square array A(n,m), n>=0, m>=0, read by antidiagonals, where column m is the expansion of g.f. 1/ (1-x^1(1-x^(m+1))/ (1-x^2(1-x^(m+2))/ (1- ... ))).

A227375 G.f.: 1/(1 - x(1-x^6)/(1 - x^2(1-x^7)/(1 - x^3(1-x^8)/(1 - x^4(1-x^9)/(1 - x^5*(1-x^10)/(1 - ...)))))), a continued fraction.

A227360 G.f.: 1/(1 - x(1-x^3)/(1 - x^2(1-x^4)/(1 - x^3(1-x^5)/(1 - x^4(1-x^6)/(1 - ...))))), a continued fraction.

A227374 G.f.: 1/(1 - x(1-x^5)/(1 - x^2(1-x^6)/(1 - x^3(1-x^7)/(1 - x^4(1-x^8)/(1 - x^5*(1-x^9)/(1 - ...)))))), a continued fraction.

A228644 Expansion of g.f. 1/ (1-x^1(1-x^(m+1))/ (1-x^2(1-x^(m+2))/ (1- ... ))) for m=7.

A228645 Expansion of g.f. 1/ (1-x^1(1-x^(m+1))/ (1-x^2(1-x^(m+2))/ (1- ... ))) for m=9.

A228646 Expansion of g.f. 1/ (1-x^1(1-x^(m+1))/ (1-x^2(1-x^(m+2))/ (1- ... ))) for m=6.