A064072 -id:A064072 - cp's OEIS frontend

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

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

Offset: 0

Peter Luschny, Nov 20 2021

nonn

			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]

Matthew House, Table of n, a(n) for n = 0..389
William Y. C. Chen, Neil J. Y. Fan, Jeffrey Y. T. Jia, The generating function for the Dirichlet series Lm(s), Mathematics of Computation, Vol. 81, No. 278, pp. 1005-1023, April 2012.
Ruth Lawrence and Don Zagier, Modular forms and quantum invariants of 3-manifolds, Asian J. Math. 3 (1999), no. 1, 93-107.
D. Shanks, Generalized Euler and class numbers, Math. Comp. 21 (1967) 689-694.
D. Shanks, Corrigendum: Generalized Euler and class numbers, Math. Comp. 22, (1968) 699.
D. Shanks, Generalized Euler and class numbers, Math. Comp. 21 (1967), 689-694; 22 (1968), 699. [Annotated scanned copy]

Row 4 of A349271.
Cf. A000111, A001586, A007289, A349265, A001587, A349266, A349267, A349268.
Secant  bisections: A000364, A000281, A000436, A000490, A000187, A000192, A064068, A064069, A064070.
Tangent bisections: A000182, A000464, A000191, A000318, A000320, A000411, A064072, A064073, A064074.
Cf. A225147, A349429.

sec(4*x)*(sin(4*x) + 1): series(%, x, 20): seq(n!*coeff(%, x, n), n = 0..19);

m = 19; CoefficientList[Series[Sec[4*x] * (Sin[4*x] + 1), {x, 0, m}], x] * Range[0, m]! (* Amiram Eldar, Nov 20 2021 *)

seq(n)={my(x='x + O('x^(n+1))); Vec(serlaplace((sin(4*x) + 1)/cos(4*x)))} \\ Andrew Howroyd, Nov 20 2021

A235606 Shanks's array d_{a,n} (a >= 1, n >= 1) that generalizes the tangent numbers, read by antidiagonals upwards.

Original entry on oeis.org

1, 1, 2, 2, 11, 16, 4, 46, 361, 272, 4, 128, 3362, 24611, 7936, 6, 272, 16384, 515086, 2873041, 353792, 8, 522, 55744, 4456448, 135274562, 512343611, 22368256, 8, 904, 152166, 23750912, 2080374784, 54276473326, 129570724921, 1903757312, 12, 1408, 355688

Offset: 1

N. J. A. Sloane, Jan 22 2014

			The array begins:
A000182: 1,  2,    16,      272,        7936,         353792, ...
A000464: 1, 11,   361,    24611,     2873041,      512343611, ...
A000191: 2, 46,  3362,   515086,   135274562,    54276473326, ...
A000318: 4,128, 16384,  4456448,  2080374784,  1483911200768, ...
A000320: 4,272, 55744, 23750912, 17328937984, 19313964388352, ...
A000411: 6,522,152166, 93241002, 97949265606,157201459863882, ...
A064072: 8,904,355688,296327464,423645846728,925434038426824, ...
...

D. Shanks. "Generalized Euler and Class Numbers." Math. Comput. 21, 689-694, 1967. Math. Comput. 22, 699, 1968.

Lars Blomberg, Table of n, a(n) for n = 1..5050
D. Shanks, Generalized Euler and class numbers, Math. Comp. 21 (1967), 689-694; 22 (1968), 699. [Annotated scanned copy]

Rows: A000182 (tangent numbers), A000464, A000191, A000318, A000320, A000411, A064072-A064075, ...
Columns: A000061, A000176, A000488, A000518, ...
Cf. A235605.

amax = nmax = 10; km0 = 10; Clear[dd]; L[a_, s_, km_] := Sum[JacobiSymbol[ -a, 2k+1]/(2k+1)^s, {k, 0, km}]; d[1, n_, km_] := 2(2n-1)! L[-1, 2n, km] (2/Pi)^(2n) // Round; d[a_ /; a>1, n_, km_] := (2n-1)! L[-a, 2n, km] (2a/ Pi)^(2n)/Sqrt[a] // Round; dd[km_] := dd[km] = Table[d[a, n, km], {a, 1, amax}, {n, 1, nmax}]; dd[km0]; dd[km = 2km0]; While[dd[km] != dd[km/2, km = 2km]]; A235606 = dd[km]; Table[A235606[[ a-n+1, n]], {a, 1, amax}, {n, 1, a}] // Flatten (* Jean-François Alcover, Feb 05 2016 *)
dds[b_, nm_] := With[{ns = Range[nm]}, (-1)^(ns - 1) If[Mod[b, 4] == 1, Sum[JacobiSymbol[k, b] (b - 4 k)^(2 ns - 1), {k, 1, (b - 1)/2}], Sum[JacobiSymbol[b, 2 k + 1] (b - (2 k + 1))^(2 ns - 1), {k, 0, (b - 2)/2}]]];
dsfs[1, nm_] := dsfs[1, nm] = (2 Range[nm] - 1)! CoefficientList[Series[Tan[x], {x, 0, 2 nm - 1}]/x, x^2];
dsfs[b_, nm_] := dsfs[b, nm] = Fold[Function[{ds, dd}, Append[ds, dd - Sum[ds[[-i]] (-b^2)^i Binomial[2 Length[ds] + 1, 2 i], {i, Length[ds]}]]], {}, dds[b, nm]];
rowA235606[a_, nm_] := With[{facs = FactorInteger[a], ns = Range[nm]}, With[{b = Times @@ (#^Mod[#2, 2] &) @@@ facs}, If[a == b, dsfs[b, nm], If[b == 1, 1/2, 1] dsfs[b, nm] Sqrt[a/b]^(4 ns - 1) Times @@ Cases[facs, {p_, e_} /; p > 2 && e > 1 :> 1 - JacobiSymbol[b, p]/p^(2 ns)]]]];
arr = Table[rowA235606[a, 10], {a, 10}];
Flatten[Table[arr[[r - n + 1, n]], {r, Length[arr]}, {n, r}]] (* Matthew House, Oct 30 2024 *)

Shanks gives recurrences.

More terms from Lars Blomberg, Sep 07 2015

A064068 Generalized Euler number c(7,n).

Original entry on oeis.org

1, 64, 15872, 9493504, 10562158592, 18878667833344, 49488442978598912, 178867627497727197184, 852509723495811705208832, 5180564635674867885905281024, 39094622102339738427522497380352, 358686739310560735577543742129700864, 3931974790759726002374736527410407145472

Offset: 0

Eric W. Weisstein, Aug 31 2001

Matthew House, Table of n, a(n) for n = 0..180
D. Shanks, Generalized Euler and class numbers. Math. Comp. 21 (1967) 689-694.
D. Shanks, Corrigenda to: "Generalized Euler and class numbers", Math. Comp. 22 (1968), 699.
Eric Weisstein's World of Mathematics, Euler Number.

Row 7 of A235605.

Cf. A064072, A349266, A349264.

egf := sec(7*x)*(cos(x) + cos(3*x) - cos(5*x)): ser := series(egf, x, 24):
seq((2*n)!*coeff(ser, x, 2*n), n = 0..11); # Peter Luschny, Nov 21 2021

Range[0, 24, 2]! CoefficientList[Series[Sec[7 x] (Cos[x] + Cos[3 x] - Cos[5 x]), {x, 0, 24}], x^2] (* Matthew House, Oct 25 2024 *)

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

A349266 Generalized Euler numbers, a(n) = n![x^n](sec(7x)(-sin(2x) + sin(4x) + sin(6x) + cos(x) + cos(3x) - cos(5x))).

Original entry on oeis.org

1, 8, 64, 904, 15872, 355688, 9493504, 296327464, 10562158592, 423645846728, 18878667833344, 925434038426824, 49488442978598912, 2866986638191472168, 178867627497727197184, 11956421282992330042984, 852509723495811705208832, 64584221654333725499376008

Offset: 0

Peter Luschny, Nov 21 2021

nonn

For references and cross references, compare the overview in A349264.

Matthew House, Table of n, a(n) for n = 0..360

Row 7 of A349271.
Bisections: A064068, A064072.
Cf. A349264.

sec(7*x)*(-sin(2*x) + sin(4*x) + sin(6*x) + cos(x) + cos(3*x) - cos(5*x)): series(%, x, 20): seq(n!*coeff(%, x, n), n = 0..17);

m = 17; CoefficientList[Series[Sec[7*x] * (-Sin[2*x] + Sin[4*x] + Sin[6*x] + Cos[x] + Cos[3*x] - Cos[5*x]), {x, 0, m}], x] * Range[0, m]! (* Amiram Eldar, Nov 21 2021 *)

A262144 Square array read by antidiagonals upwards: the n-th row o.g.f. is exp( Sum_{i >= 1} d(n,i+1)*x^i/i ) for n >= 1, where d(n,k) is Shanks's array of generalized Euler and class numbers.

Original entry on oeis.org

1, 1, 2, 1, 11, 10, 1, 46, 241, 108, 1, 128, 2739, 10411, 2214, 1, 272, 16384, 265244, 836321, 75708, 1, 522, 64964, 2883584, 45094565, 112567243, 3895236, 1, 904, 212325, 18852096, 822083584, 12975204810, 22949214033

Offset: 1

Peter Bala, Sep 18 2015

Shanks's array d(n,k) n >= 1, k >= 1, is A235606.
We conjecture that the entries of the present array are all integers. More generally, we conjecture that for r = 1, 2, ... and for each n >= 1, the expansion of exp( Sum_{i >= 1} d(n,i + r)*x^i/i ) has integer coefficients. This is the case r = 1.
For the similarly defined array associated with Shanks' c(n,k) array see A262143.

			The triangular array begins
1
1   2
1  11     10
1  46    241      108
1 128   2739    10411      2214
1 272  16384   265244    836321       75708
1 522  64964  2883584  45094565   112567243     3895236
1 904 212325 18852096 822083584 12975204810 22949214033 ...
The square array begins (row indexing n starts at 1)
1, 2, 10, 108, 2214, 75708, 3895236, 280356120, 26824493574, ...
1, 11, 241, 10411, 836321, 112567243, 22949214033, 6571897714923, 2507281057330113, ...
1, 46, 2739, 265244, 45094565, 12975204810, 5772785327575, 3656385436507960, 3107332328608143945, ...
1, 128, 16384, 2883584, 822083584, 395136991232, 300338473074688, 330739694704787456, 493338658405976375296, ...
1, 272, 64864, 18852096, 8133183744, 5766226378752, 6562478680375296, 11019751545852395520, 25333348417380699340800, ...
1, 522, 212325, 94501768, 57064909374, 54459242196516, 84430282319806062, 197625548666434041000, 642556291067409622713543, ...
1, 904, 586452, 382674008, 311514279098, 379982635729752, 753288329161251844, 2308779464340711480136, 10003494921382094286802995, ...

P. Bala, Notes on logarithmic differentiation, the binomial transform and series reversion
William Y. C. Chen, Neil J. Y. Fan, Jeffrey Y. T. Jia , The generating function for the Dirichlet series Lm(s) Mathematics of Computation, Vol. 81, No. 278, April 2012.
D. Shanks, Generalized Euler and class numbers. Math. Comp. 21 (1967) 689-694.
D. Shanks, Corrigenda to: "Generalized Euler and class numbers", Math. Comp. 22 (1968), 699.
D. Shanks, Generalized Euler and class numbers, Math. Comp. 21 (1967), 689-694; 22 (1968), 699. [Annotated scanned copy]

Cf. A000182 (d(1,n)), A000464 (d(2,n)), A000191 (d(3,n)), A000318 (d(4,n)), A000320 (d(5,n)), A000411 (d(6,n)), A064072 (d(7,n)), A235605, A235606, A262143, A262145 (row 1 of square array).

A370411 Square array T(n, k) = denominator( zeta_r(2n) sqrt(A003658(k + 2)) / Pi^(4*n) ), read by antidiagonals, where zeta_r is the Dedekind zeta-function over r and r is the real quadratic field with discriminant A003658(k + 2).

Original entry on oeis.org

1, 75, 1, 16875, 24, 1, 221484375, 34560, 18, 1, 116279296875, 116121600, 58320, 39, 1, 12950606689453125, 780337152000, 440899200, 296595, 51, 1, 4861333986053466796875, 8899589151129600, 6666395904000, 68420017575, 663255, 63, 1, 677114376628875732421875

Offset: 0

Thomas Scheuerle, Feb 22 2024

			The array begins:
           1,            1,             1,              1,                 1
          75,           24,            18,             39,                51
       16875,        34560,         58320,         296595,            663255
   221484375,    116121600,     440899200,    68420017575,       20126472975
116279296875, 780337152000, 6666395904000, 93393323989875, 10382542981248375

Index entries for zeta function.

Cf. A370412 (numerators).
Cf. A003658, A080891, A097916, A097917, A230375, A370413.
Cf. A000191, A000411, A000464, A064072, A064075.
Cf. A002432 (denominators zeta(2*n)/Pi^(2*n)).
Cf. A046988 (numerators zeta(2*n)/Pi^(2*n)).
Coefficients of Dedekind zeta functions for real quadratic number fields of discriminants 5, 8, 12, 13, 17, 21, 24, 28, 29, 33, 37, 40 are A035187, A035185, A035194, A035195, A035199, A035203, A035188, A035210, A035211, A035215, A035219, A035192, respectively.

\p 700
row(n) = {v=[]; for(k=2, 30, if(isfundamental(k), v=concat(v, denominator(bestappr(sqrt(k)*lfun(x^2-(k%2)*x-floor(k/4), 2*n)/Pi^(4*n)))))); v}
z(n,d) = if(n == 0, 0,(1/(-2*n))*bernfrac(2*n)*d^(2*n-1)*sum(k=1,d-1, kronecker(d, k)*subst(bernpol(2*n),x,k/d)*(1/(-2*n))))
row(n) = {v=[]; for(k=2, 100, if(isfundamental(k), v=concat(v, denominator((2^(n*4)*n^2*z(n,k))/((2*n)!^2 * (k^(2*n-1))))))); v} \\ more accuracy here

# Only suitable for small n and k
def T(n, k):
    discs = [fundamental_discriminant(i) for i in range(1, 4*k+10)]
    D = sorted(list(set(discs)))[k+1]
    zetaK = QuadraticField(D).zeta_function(1000)
    val = (zetaK(2*n)*sqrt(D)/(pi^(4*n))).n(1000).nearby_rational(2^-900)
    return val.denominator() # Robin Visser, Mar 19 2024

T(n, k) = denominator( 2^(n*4) * n^2 * zeta_r(1 - 2*n) /((2*n)!^2 * A003658(k + 2)^(2*n - 1)) ), where zeta_r is the Dedekind zeta-function over r and r is the real quadratic field with discriminant A003658(k + 2).
T(n, 0) = denominator((5^(-2*n)*(zeta(2*n, 1/5) - zeta(2*n, 2/5) - zeta(2*n, 3/5) + zeta(2*n, 4/5) ))*zeta(2*n)*sqrt(5)*Pi^(-4*n)). A sum of Hurwitz zeta functions with signs according A080891.
T(n, 1) = denominator( 2^(n*4) * n^2 * zeta(1 - 2*n) * (-1)^n * A000464(n+1) /((2*n)!^2 * 8^(2*n - 1)) ).
T(n, 2) = denominator( 2^(n*4) * n^2 * zeta(1 - 2*n) * (-1)^n * A000191(n+1) /((2*n)!^2 * 12^(2*n - 1)) ).
T(n, 3) = denominator((13^(-2*n)*(zeta(2*n, 1/13) - zeta(2*n, 2/13) + zeta(2*n, 3/13) + zeta(2*n, 4/13) - zeta(2*n, 5/13) - zeta(2*n, 6/13) - zeta(2*n, 7/13) -  zeta(2*n, 8/13) + zeta(2*n, 9/13) + zeta(2*n, 10/13) - zeta(2*n, 11/13) + zeta(2*n, 12/13) ))*zeta(2*n)*sqrt(13)*Pi^(-4*n)). A sum of Hurwitz zeta functions with signs according the Dirichlet character X13(12,.).
T(n, 6) = denominator( 2^(n*4) * n^2 * zeta(1 - 2*n) * (-1)^n * A000411(n+1) /((2*n)!^2 * 24^(2*n - 1)) ).
T(n, 7) = denominator( 2^(n*4) * n^2 * zeta(1 - 2*n) * (-1)^n * A064072(n+1) /((2*n)!^2 * 28^(2*n - 1)) ).
T(n, 11) = denominator( 2^(n*4) * n^2 * zeta(1 - 2*n) * (-1)^n * A064075(n+1) /((2*n)!^2 * 40^(2*n - 1)) ).
T(n, k) = denominator( 2^(n*4) * n^2 * zeta(1 - 2*n) * (-1)^n * d(A003658(k+2)/4, n+1) /((2*n)!^2 * 40^(2*n - 1)) ), for all k where A003658(k+2) is a multiple of four (The discriminant of the quadratic field is from 4*A230375). d() are the generalized tangent numbers.
T(0, k) = 1, because for a real quadratic number field the discriminant D is positive, hence the Kronecker symbol (D/-1) = 1. This means the associated Dirichlet L-function will be zero at s = 0 inside the expression zeta_r(s) = zeta(s)*L(s, x).

A370412 Square array T(n, k) = numerator( zeta_r(2n) sqrt(A003658(k + 2)) / Pi^(4*n) ), read by antidiagonals, where zeta_r is the Dedekind zeta-function over r and r is the real quadratic field with discriminant A003658(k + 2).

Original entry on oeis.org

0, 2, 0, 4, 1, 0, 536, 11, 1, 0, 2888, 361, 23, 2, 0, 3302008, 24611, 1681, 116, 4, 0, 12724582576, 2873041, 257543, 267704, 328, 4, 0, 18194938976, 27233033477, 67637281, 3741352, 92656, 88, 1, 0, 875222833138832, 11779156811, 18752521534133, 1156377368, 479214352, 287536, 29, 2, 0

Offset: 0

Thomas Scheuerle, Feb 22 2024

			The array begins:
          0,           0,              0,               0,                 0
          2,           1,              1,               2,                 4
          4,          11,             23,             116,               328
        536,         361,           1681,          267704,             92656
       2888,       24611,         257543,         3741352,         479214352
    3302008,     2873041,       67637281,      1156377368,       14816172016
12724582576, 27233033477, 18752521534133, 753075777246704, 16476431095568992

Index entries for zeta function.

Cf. A370411 (denominators).
Cf. A003658, A080891, A097916, A097917, A230375, A370413.
Cf. A000191, A000411, A000464, A064072, A064075.
Cf. A002432 (denominators zeta(2*n)/Pi^(2*n)).
Cf. A046988 (numerators zeta(2*n)/Pi^(2*n)).
Coefficients of Dedekind zeta functions for real quadratic number fields of discriminants 5, 8, 12, 13, 17, 21, 24, 28, 29, 33, 37, 40 are A035187, A035185, A035194, A035195, A035199, A035203, A035188, A035210, A035211, A035215, A035219, A035192, respectively.

\p 700
row(n) = {v=[]; for(k=2, 50, if(isfundamental(k), v=concat(v, numerator(bestappr(sqrt(k)*lfun(x^2-(k%2)*x-floor(k/4), 2*n)/Pi^(4*n)))))); v}
z(n,d) = if(n == 0, 0,(1/(-2*n))*bernfrac(2*n)*d^(2*n-1)*sum(k=1,d-1, kronecker(d, k)*subst(bernpol(2*n),x,k/d)*(1/(-2*n))))
row(n) = {v=[]; for(k=2, 100, if(isfundamental(k), v=concat(v, numerator((2^(n*4)*n^2*z(n,k))/((2*n)!^2 * (k^(2*n-1))))))); v} \\ more accuracy here

# Only suitable for small n and k
def T(n, k):
    discs = [fundamental_discriminant(i) for i in range(1, 4*k+10)]
    D = sorted(list(set(discs)))[k+1]
    zetaK = QuadraticField(D).zeta_function(1000)
    val = (zetaK(2*n)*sqrt(D)/(pi^(4*n))).n(1000).nearby_rational(2^-900)
    return val.numerator() # Robin Visser, Mar 19 2024

T(n, k) = numerator( 2^(n*4) * n^2 * zeta_r(1 - 2*n) /((2*n)!^2 * A003658(k + 2)^(2*n - 1)) ), where zeta_r is the Dedekind zeta-function over r and r is the real quadratic field with discriminant A003658(k + 2).
T(n, 0) = numerator((5^(-2*n)*(zeta(2*n, 1/5) - zeta(2*n, 2/5) - zeta(2*n, 3/5) + zeta(2*n, 4/5) ))*zeta(2*n)*sqrt(5)*Pi^(-4*n)). A sum of Hurwitz zeta functions with signs according A080891.
T(n, 1) = numerator( 2^(n*4) * n^2 * zeta(1 - 2*n) * (-1)^n * A000464(n+1) /((2*n)!^2 * 8^(2*n - 1)) ).
T(n, 2) = numerator( 2^(n*4) * n^2 * zeta(1 - 2*n) * (-1)^n * A000191(n+1) /((2*n)!^2 * 12^(2*n - 1)) ).
T(n, 3) = numerator((13^(-2*n)*(zeta(2*n, 1/13) - zeta(2*n, 2/13) + zeta(2*n, 3/13) + zeta(2*n, 4/13) - zeta(2*n, 5/13) - zeta(2*n, 6/13) - zeta(2*n, 7/13) -  zeta(2*n, 8/13) + zeta(2*n, 9/13) + zeta(2*n, 10/13) - zeta(2*n, 11/13) + zeta(2*n, 12/13) ))*zeta(2*n)*sqrt(13)*Pi^(-4*n)). A sum of Hurwitz zeta functions with signs according the Dirichlet character X13(12,.).
T(n, 6) = numerator( 2^(n*4) * n^2 * zeta(1 - 2*n) * (-1)^n * A000411(n+1) /((2*n)!^2 * 24^(2*n - 1)) ).
T(n, 7) = numerator( 2^(n*4) * n^2 * zeta(1 - 2*n) * (-1)^n * A064072(n+1) /((2*n)!^2 * 28^(2*n - 1)) ).
T(n, 11) = numerator( 2^(n*4) * n^2 * zeta(1 - 2*n) * (-1)^n * A064075(n+1) /((2*n)!^2 * 40^(2*n - 1)) ).
T(n, k) = numerator( 2^(n*4) * n^2 * zeta(1 - 2*n) * (-1)^n * d(A003658(k+2)/4, n+1) /((2*n)!^2 * 40^(2*n - 1)) ), for all k where A003658(k+2) is a multiple of four (The discriminant of the quadratic field is from 4*A230375). d() are the generalized tangent numbers.
T(0, k) = 0, because for a real quadratic number field the discriminant D is positive, hence the Kronecker symbol (D/-1) = 1. This means the associated Dirichlet L-function will be zero at s = 0 inside the expression zeta_r(s) = zeta(s)*L(s, x).

cp's OEIS Frontend

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

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

A235606 Shanks's array d_{a,n} (a >= 1, n >= 1) that generalizes the tangent numbers, read by antidiagonals upwards.

Views

Author

Keywords

Examples

References

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A064068 Generalized Euler number c(7,n).

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A349266 Generalized Euler numbers, a(n) = n!*[x^n](sec(7*x)*(-sin(2*x) + sin(4*x) + sin(6*x) + cos(x) + cos(3*x) - cos(5*x))).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

A262144 Square array read by antidiagonals upwards: the n-th row o.g.f. is exp( Sum_{i >= 1} d(n,i+1)*x^i/i ) for n >= 1, where d(n,k) is Shanks's array of generalized Euler and class numbers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

A370411 Square array T(n, k) = denominator( zeta_r(2*n) * sqrt(A003658(k + 2)) / Pi^(4*n) ), read by antidiagonals, where zeta_r is the Dedekind zeta-function over r and r is the real quadratic field with discriminant A003658(k + 2).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

PARI

Sage

Formula

A370412 Square array T(n, k) = numerator( zeta_r(2*n) * sqrt(A003658(k + 2)) / Pi^(4*n) ), read by antidiagonals, where zeta_r is the Dedekind zeta-function over r and r is the real quadratic field with discriminant A003658(k + 2).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

PARI

Sage

Formula

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

A349266 Generalized Euler numbers, a(n) = n![x^n](sec(7x)(-sin(2x) + sin(4x) + sin(6x) + cos(x) + cos(3x) - cos(5x))).

A370411 Square array T(n, k) = denominator( zeta_r(2n) sqrt(A003658(k + 2)) / Pi^(4*n) ), read by antidiagonals, where zeta_r is the Dedekind zeta-function over r and r is the real quadratic field with discriminant A003658(k + 2).

A370412 Square array T(n, k) = numerator( zeta_r(2n) sqrt(A003658(k + 2)) / Pi^(4*n) ), read by antidiagonals, where zeta_r is the Dedekind zeta-function over r and r is the real quadratic field with discriminant A003658(k + 2).