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-2 of 2 results.

A225166 Denominators of the sequence s(n) of the sum resp. product of fractions f(n) defined recursively by f(1) = 7/1; f(n+1) is chosen so that the sum and the product of the first n terms of the sequence are equal.

Original entry on oeis.org

1, 6, 258, 552894, 2881632108858, 87461276190009420415561494, 88945179016152188483365571645414219233310820789054258
Offset: 1

Views

Author

Martin Renner, Apr 30 2013

Keywords

Comments

Numerators of the sequence s(n) of the sum resp. product of fractions f(n) is A165425(n+2), hence sum(A165425(i+1)/A225159(i),i=1..n) = product(A165425(i+1)/A225159(i),i=1..n) = A165425(n+2)/a(n).

Examples

			f(n) = 7, 7/6, 49/43, 2401/2143, ...
7 + 7/6 = 7 * 7/6 = 49/6; 7 + 7/6 + 49/43 = 7 * 7/6 * 49/43 = 2401/258; ...
s(n) = 1/b(n) = 7, 49/6, 2401/258, ...
		

Crossrefs

Programs

  • Maple
    b:=proc(n) option remember; b(n-1)-b(n-1)^2; end:
    b(1):=1/7;
    a:=n->7^(2^(n-1))*b(n);
    seq(a(i),i=1..8);

Formula

a(n) = 7^(2^(n-1))*b(n) where b(n)=b(n-1)-b(n-1)^2 with b(1)=1/7.

A225200 Triangle (read by rows) of coefficients of the polynomials (in ascending order) of the denominators of the generalized sequence of fractions f(n) defined recursively by f(1) = m/1; f(n+1) is chosen so that the sum and the product of the first n terms of the sequence are equal.

Original entry on oeis.org

1, -1, 1, 1, -1, 1, 1, -2, 2, -1, 1, 1, -4, 8, -10, 9, -6, 3, -1, 1, 1, -8, 32, -84, 162, -244, 298, -302, 258, -188, 118, -64, 30, -12, 4, -1, 1, 1, -16, 128, -680, 2692, -8456, 21924, -48204, 91656, -152952, 226580, -300664, 359992, -391232, 387820, -352074, 293685, -225696, 160120, -105024, 63750, -35832, 18654, -8994, 4014, -1656, 630, -220, 70, -20, 5, -1, 1
Offset: 1

Views

Author

Martin Renner, May 01 2013

Keywords

Comments

The degree of the polynomial in row n > 1 is 2^(n-2), hence the number of coefficients in row n > 1 is given by 2^(n-2) + 1 = A094373(n-1).
For n > 2 a new row always begins and ends with 1.
The sum and product of the generalized sequence of fractions given by m^(2^(n-2)) divided by the polynomial p(n) are equal, i.e.,
m + m/(m-1) = m * m/(m-1) = m^2/(m-1);
m + m/(m-1) + m^2/(m^2-m+1) = m * m/(m-1) * m^2/(m^2-m+1) = m^4/(m^3-2*m^2+2*m-1).

Examples

			The triangle T(n,k), k = 0..2^(n-1), begins
   1;
  -1,  1;
   1, -1, 1;
   1, -2, 2,  -1, 1;
   1, -4, 8, -10, 9, -6, 3, -1, 1;
		

Crossrefs

Programs

  • Maple
    b:=n->m^(2^(n-2)); # n > 1
    b(1):=m;
    p:=proc(n) option remember; p(n-1)*a(n-1); end;
    p(1):=1;
    a:=proc(n) option remember; b(n)-p(n); end;
    a(1):=1;
    seq(op(PolynomialTools[CoefficientList](a(i),m,termorder=forward)),i=1..7);
Showing 1-2 of 2 results.