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

A349264 Generalized Euler numbers, a(n) = n!*[x^n](sec(4*x)*(sin(4*x) + 1)).

Original entry on oeis.org

1, 4, 16, 128, 1280, 16384, 249856, 4456448, 90767360, 2080374784, 52975108096, 1483911200768, 45344872202240, 1501108249821184, 53515555843342336, 2044143848640217088, 83285910482761809920, 3605459138582973251584, 165262072909347030040576, 7995891855149741436305408
Offset: 0

Views

Author

Peter Luschny, Nov 20 2021

Keywords

Examples

			Exponential generating functions of generalized Euler numbers in context:
egf1 = sec(1*x)*(sin(x) + 1).
   [A000111, A000364, A000182]
egf2 = sec(2*x)*(sin(x) + cos(x)).
   [A001586, A000281, A000464]
egf3 = sec(3*x)*(sin(2*x) + cos(x)).
   [A007289, A000436, A000191]
egf4 = sec(4*x)*(sin(4*x) + 1).
   [A349264, A000490, A000318]
egf5 = sec(5*x)*(sin(x) + sin(3*x) + cos(2*x) + cos(4*x)).
   [A349265, A000187, A000320]
egf6 = sec(6*x)*(sin(x) + sin(5*x) + cos(x) + cos(5*x)).
   [A001587, A000192, A000411]
egf7 = sec(7*x)*(-sin(2*x) + sin(4*x) + sin(6*x) + cos(x) + cos(3*x) - cos(5*x)).
   [A349266, A064068, A064072]
egf8 = sec(8*x)*2*(sin(4*x) + cos(4*x)).
   [A349267, A064069, A064073]
egf9 = sec(9*x)*(4*sin(3*x) + 2)*cos(3*x)^2.
   [A349268, A064070, A064074]
		

Crossrefs

Programs

  • Maple
    sec(4*x)*(sin(4*x) + 1): series(%, x, 20): seq(n!*coeff(%, x, n), n = 0..19);
  • Mathematica
    m = 19; CoefficientList[Series[Sec[4*x] * (Sin[4*x] + 1), {x, 0, m}], x] * Range[0, m]! (* Amiram Eldar, Nov 20 2021 *)
  • PARI
    seq(n)={my(x='x + O('x^(n+1))); Vec(serlaplace((sin(4*x) + 1)/cos(4*x)))} \\ Andrew Howroyd, Nov 20 2021

A349271 Array A(n, k) that generalizes Euler numbers, class numbers, and tangent numbers, read by ascending antidiagonals.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 2, 3, 2, 2, 4, 8, 11, 5, 2, 4, 16, 46, 57, 16, 1, 6, 30, 128, 352, 361, 61, 2, 8, 46, 272, 1280, 3362, 2763, 272, 2, 8, 64, 522, 3522, 16384, 38528, 24611, 1385, 2, 12, 96, 904, 7970, 55744, 249856, 515086, 250737, 7936
Offset: 1

Views

Author

Peter Luschny, Nov 23 2021

Keywords

Examples

			Seen as an array:
[1] 1,  1,   1,    2,     5,      16,       61,        272, ... [A000111]
[2] 1,  1,   3,   11,    57,     361,     2763,      24611, ... [A001586]
[3] 1,  2,   8,   46,   352,    3362,    38528,     515086, ... [A007289]
[4] 1,  4,  16,  128,  1280,   16384,   249856,    4456448, ... [A349264]
[5] 2,  4,  30,  272,  3522,   55744,  1066590,   23750912, ... [A349265]
[6] 2,  6,  46,  522,  7970,  152166,  3487246,   93241002, ... [A001587]
[7] 1,  8,  64,  904, 15872,  355688,  9493504,  296327464, ... [A349266]
[8] 2,  8,  96, 1408, 29184,  739328, 22634496,  806453248, ... [A349267]
[9] 2, 12, 126, 2160, 49410, 1415232, 48649086, 1951153920, ... [A349268]
.
Seen as a triangle:
[1] 1;
[2] 1, 1;
[3] 1, 1,  1;
[4] 1, 2,  3,   2;
[5] 2, 4,  8,  11,    5;
[6] 2, 4, 16,  46,   57,    16;
[7] 1, 6, 30, 128,  352,   361,    61;
[8] 2, 8, 46, 272, 1280,  3362,  2763,   272;
[9] 2, 8, 64, 522, 3522, 16384, 38528, 24611, 1385;
		

Crossrefs

A235605 (array generalized Euler secant numbers).
A235606 (array generalized Euler tangent numbers).
A349264 (overview generating functions).
Columns: A000003 (class numbers), A000061, A000233, A000176, A000362, A000488, A000508, A000518.
Cf. A349263 (main diagonal).

A064069 Generalized Euler number c(8,n).

Original entry on oeis.org

2, 96, 29184, 22634496, 32864600064, 76717014122496, 262665886073094144, 1239981021847665770496, 7719096548270543600615424, 61267211781784116552580202496, 603881788505747521507846892027904, 7236592671961544936200760521440362496, 103612803724706836868168667250308188995584
Offset: 0

Views

Author

Eric W. Weisstein, Aug 31 2001

Keywords

Crossrefs

Programs

  • Maple
    egf := sec(8*x)*2*cos(4*x): ser := series(egf, x, 24):
    seq((2*n)!*coeff(ser, x, 2*n), n = 0..11); # Peter Luschny, Nov 21 2021
  • Mathematica
    Range[0, 24, 2]! CoefficientList[Series[2 Sec[8 x] Cos[4 x], {x, 0, 24}], x^2] (* Matthew House, Oct 25 2024 *)

Formula

a(n) = 2^(4n+5) * A000281(n).
a(n) = (2*n)!*[x^(2*n)](sec(8*x)*2*cos(4*x)). - Peter Luschny, Nov 21 2021

A064073 Generalized tangent number d(8,n).

Original entry on oeis.org

8, 1408, 739328, 806453248, 1506300919808, 4297849713983488, 17390688314209599488, 94727563504456856240128, 668321603392783694711226368, 5928595592752632717848942215168, 64586438563324327821773422563688448, 847680268223550650928681687352090820608
Offset: 1

Views

Author

Eric W. Weisstein, Aug 31 2001

Keywords

Crossrefs

Programs

  • Maple
    egf := sec(8*x)*2*sin(4*x): ser := series(egf, x, 24):
    seq((2*n-1)!*coeff(ser, x, 2*n-1), n = 1..10); # Peter Luschny, Nov 21 2021

Formula

E.g.f.: Sum_{k>0} a(k)x^(2k-1)/(2k-1)! = 2*sin(4x)/cos(8x).
a(n) = 2^(4n-1) * A000464(n-1).
a(n) = (2*n-1)!*[x^(2*n-1)](sec(8*x)*2*sin(4*x)). - Peter Luschny, Nov 21 2021
Showing 1-4 of 4 results.