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.

A171693 Expansion of g.f.: 2^(1+floor(n/2))*n!*((1-y)^(n+1)/(1+y))*f(x, y, m), where f(x, y, m) = 2^(m+1)*exp(2^m*t)/((1-y*exp(t))*(1 + (2^(m+1)-1)*exp(2^m*t))), and m = 0.

Original entry on oeis.org

1, -1, 14, -1, 4, -16, 504, -16, 4, -34, 372, 2178, 35288, 2178, 372, -34, 496, -5888, 65728, 749824, 4185760, 749824, 65728, -5888, 496, -11056, 154912, -767856, 23350656, 230640288, 770603712, 230640288, 23350656, -767856, 154912, -11056
Offset: 0

Views

Author

Roger L. Bagula, Dec 15 2009

Keywords

Examples

			Irregular triangle begins as:
    1;
   -1,    14,    -1;
    4,   -16,   504,    -16,       4;
  -34,   372,  2178,  35288,    2178,    372,   -34;
  496, -5888, 65728, 749824, 4185760, 749824, 65728, -5888, 496;
		

Crossrefs

Programs

  • Mathematica
    m= 0;
    f[t_, y_, m_]= 2^(m+1)*Exp[2^m*t]/((1-y*Exp[t])*(1+(2^(m+1)-1)*Exp[2^m*t]));
    T[n_]:= T[n]= CoefficientList[2^(1+Floor[n/2])*n!*(1-y)^(n+1)/(1 + y)*SeriesCoefficient[Series[f[t, y, m], {t,0,20}], n], y];
    Table[T[2*n+1], {n,0,12}]//Flatten (* modified by G. C. Greubel, Mar 30 2022 *)

Formula

G.f.: 2^(1+floor(n/2))*n!*((1-y)^(n+1)/(1+y))*f(x, y, m), where f(x, y, m) = 2^(m+1)*exp(2^m*t)/((1-y*exp(t))*(1 + (2^(m+1)-1)*exp(2^m*t))), and m = 0.

Extensions

Edited by G. C. Greubel, Mar 31 2022

A171695 Expansion of g.f.: 2^(floor((n+1)/2))*n!*(1-y)^(n+1)*f(x, y, m), where f(x, y, m) = 2^(m+1)*exp(2^m*t)/((1-y*exp(t))*(1 + (2^(m+1)-1)*exp(2^m*t))), and m = 1.

Original entry on oeis.org

1, 1, 1, -1, 6, -1, -1, 7, 25, -7, 10, -44, 152, -20, -2, -26, 198, -292, 1628, -642, 94, -154, 1000, -1954, 6416, 1586, -1400, 266, 1646, -13606, 51774, -75094, 175226, -73890, 15962, -1378, 1000, -3936, -4448, 190432, 37104, 779104, -472160, 133152, -15128
Offset: 0

Views

Author

Roger L. Bagula, Dec 15 2009

Keywords

Examples

			Triangle begins as:
     1;
     1,      1;
    -1,      6,    -1;
    -1,      7,    25,     -7;
    10,    -44,   152,    -20,     -2;
   -26,    198,  -292,   1628,   -642,     94;
  -154,   1000, -1954,   6416,   1586,  -1400,     266;
  1646, -13606, 51774, -75094, 175226, -73890,   15962,  -1378;
  1000,  -3936, -4448, 190432,  37104, 779104, -472160, 133152, -15128;
		

Crossrefs

Programs

  • Mathematica
    m= 1;
    f[t_, y_, m_]= 2^(m+1)*Exp[2^m*t]/((1-y*Exp[t])*(1+(2^(m+1)-1)*Exp[2^m*t]));
    Table[CoefficientList[2^(Floor[(n+1)/2])*n!*(1-y)^(n+1)*SeriesCoefficient[ Series[f[t,y,m], {t,0,20}], n], y], {n,0,12}]//Flatten (* modified by G. C. Greubel, Mar 29 2022 *)

Formula

G.f.: 2^(floor((n+1)/2))*n!*(1-y)^(n+1)*f(x, y, m), where f(x, y, m) = 2^(m+1)*exp(2^m*t)/((1-y*exp(t))*(1 + (2^(m+1)-1)*exp(2^m*t))), and m = 1.

Extensions

Edited by G. C. Greubel, Mar 29 2022
Showing 1-2 of 2 results.