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.

Previous Showing 21-26 of 26 results.

A175773 Expansion of 1/(1 - x - x^6 - x^11 + x^12).

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 2, 3, 4, 5, 6, 8, 10, 13, 17, 22, 28, 37, 48, 62, 80, 103, 133, 172, 223, 289, 374, 483, 625, 808, 1045, 1352, 1749, 2262, 2926, 3785, 4896, 6333, 8191, 10595, 13704, 17726, 22929, 29659, 38363, 49622, 64185, 83022, 107388, 138905, 179672
Offset: 0

Views

Author

Roger L. Bagula, Dec 04 2010

Keywords

Comments

The ratio a(n+1)/a(n) is 1.2934859531254534... for n->infinity.

Links

Crossrefs

Cf. A175739.
Cf. A029826, A117791, A143419, A143438, A143472, A143619, A143644, A147663, A173908, A173911, A173924, A173925, A174522, A175740, A175772, A175782, A181600, A204631, A225391, A225393, A225394, A225482, A225499.

Programs

  • Magma
    m:=50; R:=PowerSeriesRing(Integers(), m); Coefficients(R!(1/(1-x-x^6-x^11+x^12))); // G. C. Greubel, Nov 03 2018
  • Mathematica
    CoefficientList[Series[1/(1 - x - x^6 - x^11 + x^12), {x, 0, 50}], x]
  • PARI
    x='x+O('x^50); Vec(1/(1-x-x^6-x^11+x^12)) \\ G. C. Greubel, Nov 03 2018

Formula

G.f.: 1/((1 - x + x^2)*(1 - x^2 - x^3 + x^5 - x^7 - x^8 + x^10)).
a(n) = a(n-1) + a(n-6) + a(n-11) - a(n-12), n >= 12. - Franck Maminirina Ramaharo, Oct 31 2018

A175782 Expansion of 1/(1 - x - x^20 - x^39 + x^40).

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 22, 24, 27, 31, 36, 42, 49, 57, 66, 76, 87, 99, 112, 126, 141, 157, 174, 192, 211, 231, 254, 279, 307, 339, 376, 419, 469, 527, 594
Offset: 0

Views

Author

Roger L. Bagula, Dec 04 2010

Keywords

Comments

Limiting ratio of a(n)/a(n-1) = 1.119189829034646... .
A quasi - Salem polynomial based on the symmetrical polynomial defined by p(x,0) = 1, p(x,n) = x^(2*n) - x^(2*n - 1) - x^n - x + 1 for n>=1.
The polynomial has one real and two complex roots outside the unit circle.

Links

Crossrefs

Cf. A175739.
Cf. A029826, A117791, A143419, A143438, A143472, A143619, A143644, A147663, A173908, A173911, A173924, A173925, A174522, A175740, A175772, A175773, A181600, A204631, A225391, A225393, A225394, A225482, A225499.

Programs

  • Magma
    m:=50; R:=PowerSeriesRing(Integers(), m); Coefficients(R!(1/(1-x-x^20-x^39+x^40))); // G. C. Greubel, Nov 03 2018
  • Maple
    gf:= 1/(1-x-x^20-x^39+x^40):
a:= n-> coeff(series(gf, x, n+1), x, n):
seq(a(n), n=0..100);  # Alois P. Heinz, Jul 27 2012
  • Mathematica
    CoefficientList[Series[1/(1 - x - x^20 - x^39 + x^40), {x, 0, 50}], x]
LinearRecurrence[{1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,-1},{1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,22},70] (* Harvey P. Dale, Jun 30 2023 *)
  • PARI
    Vec(O(x^99)+1/(1 - x - x^20 - x^39 + x^40)) \\ N.B.: This yields a vector whose first component v[1] equals a(0), i.e., the offset is shifted by one. - M. F. Hasler, Dec 11 2010

Formula

a(n) = a(n-1) + a(n-20) + a(n-39) - a(n-40). - Franck Maminirina Ramaharo, Oct 31 2018

A181600 Expansion of 1/(1 - x - x^2 + x^8 - x^10).

Original entry on oeis.org

1, 1, 2, 3, 5, 8, 13, 21, 33, 53, 85, 136, 218, 349, 559, 895, 1434, 2297, 3679, 5893, 9439, 15119, 24217, 38790, 62132, 99520, 159407, 255331, 408978, 655083, 1049283, 1680695, 2692063, 4312028, 6906816, 11063033, 17720278, 28383559, 45463532, 72821479
Offset: 0

Views

Author

Roger L. Bagula, May 06 2013

Keywords

Comments

Limiting ratio is 1.60176..., the largest real root of -1 + x^2 - x^8 - x^9 + x^10. Compare this constant to Lehmer's Salem constant A073011 and the golden mean.

Links

Crossrefs

Cf. A029826, A117791, A143419, A143438, A143472, A143619, A143644, A147663, A173908, A173911, A173924, A173925, A174522, A175740, A175772, A175773, A175782, A204631, A225391, A225393, A225394, A225482, A225499.

Programs

  • Magma
    m:=50; R:=PowerSeriesRing(Integers(), m); Coefficients(R!(1/(1 -x-x^2+x^8-x^10))); // G. C. Greubel, Nov 03 2018
  • Mathematica
    CoefficientList[Series[1/(1 - x - x^2 + x^8 - x^10), {x, 0, 50}], x]
LinearRecurrence[{1, 1, 0, 0, 0, 0, 0, -1, 0, 1}, {1, 1, 2, 3, 5, 8, 13, 21, 33, 53}, 50] (* Harvey P. Dale, Aug 11 2015 *)
  • PARI
    Vec(1/(1 -x -x^2 +x^8 -x^10) + O(x^50)) \\ G. C. Greubel, Nov 16 2016

Formula

a(n) = a(n-1) + a(n-2) - a(n-8) + a(n-10). - Franck Maminirina Ramaharo, Oct 31 2018

A225484 Expansion of 1/(1 - x^3 - x^4 - x^5 - x^6 + x^9).

Original entry on oeis.org

1, 0, 0, 1, 1, 1, 2, 2, 3, 4, 6, 8, 10, 14, 20, 26, 36, 49, 66, 90, 123, 167, 227, 308, 420, 571, 776, 1056, 1436, 1952, 2656, 3612, 4912, 6680, 9085, 12356, 16804, 22853, 31081, 42269, 57486, 78182, 106327, 144604
Offset: 0

Views

Author

Roger L. Bagula, May 08 2013

Keywords

Comments

Limiting ratio is 1.3599997117115008..., the largest real root of 1 - x^3 - x^4 - x^5 - x^6 + x^9 = 0.

Links

Crossrefs

Cf. A117791, A107293, A204631, A225391, A225482.

Programs

  • Mathematica
    SeriesCoefficient[Series[1/(1 - x^3 - x^4 - x^5 - x^6 + x^9), {x, 0, 50}], n]
  • PARI
    Vec(1/(1-x^3-x^4-x^5-x^6+x^9)+O(x^99)) \\ Charles R Greathouse IV, May 08 2013

A225490 Expansion of 1/(1 - x - x^2 + x^5 + x^6 - x^7).

Original entry on oeis.org

1, 1, 2, 3, 5, 7, 10, 15, 21, 30, 42, 60, 84, 118, 166, 233, 327, 458, 643, 901, 1263, 1770, 2481, 3477, 4872, 6828, 9568, 13408, 18788, 26328, 36893, 51697, 72442, 101511, 142245, 199323, 279306, 391383, 548433
Offset: 0

Views

Author

Roger L. Bagula, May 08 2013

Keywords

Comments

Limiting ratio is 1.401268367939855..., the largest real root of -1 + x + x^2 - x^5 - x^6 + x^7.

Links

Crossrefs

Cf. A117791, A107293, A204631, A225391, A225482, A225484.

Programs

  • Mathematica
    CoefficientList[Series[1/(1 - x - x^2 + x^5 + x^6 - x^7), {x, 0, 50}], x]

A225500 Expansion of 1/(1 - x - x^5 + x^6 - x^7 - x^11 + x^12).

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 2, 3, 4, 5, 7, 9, 12, 15, 19, 25, 33, 43, 56, 73, 95, 124, 161, 210, 273, 355, 463, 603, 786, 1023, 1332, 1735, 2259, 2942, 3831, 4989, 6497, 8461, 11019, 14350, 18687, 24335, 31691, 41270, 53745
Offset: 0

Views

Author

Roger L. Bagula, May 09 2013

Keywords

Links

Crossrefs

Cf. A117791, A107293, A204631, A225391, A225482, A225484, A225490, A225490.

Programs

  • Mathematica
    CoefficientList[Series[1/(1 - x - x^5 + x^6 - x^7 - x^11 + x^12), {x, 0, 50}], x]
LinearRecurrence[{1,0,0,0,1,-1,1,0,0,0,1,-1},{1,1,1,1,1,2,2,3,4,5,7,9},100] (* G. C. Greubel, Nov 16 2016 *)
  • PARI
    Vec(1/(1-x -x^5 +x^6 -x^7 -x^11 +x^12) + O(x^50)) \\ G. C. Greubel, Nov 16 2016
Previous Showing 21-26 of 26 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.