Joseph Abate - cp's OEIS frontend

User: Joseph Abate

Joseph Abate has authored 3 sequences.

A280443 a(n) = A280442(n)/A223067(n) = A067624(n)*A046161(n)/A223068(n).

1, 1, 1, 1, 1, 1, 1, 11, 1, 1, 1, 1, 11, 17, 1, 23, 1, 11, 1, 1, 1, 17, 11, 1, 1, 1, 23, 11, 43, 17, 1, 1, 121, 1, 1, 1, 1, 4301, 1, 1, 1, 73, 11, 1, 1, 17, 1, 11, 23, 43, 1, 1, 11, 17, 1, 1, 1, 11, 101, 23, 89, 17, 11, 1, 1, 83, 1, 11, 1

Offset: 0

Johannes W. Meijer and Joseph Abate, Jan 03 2017

This sequence is related in a peculiar way to A223067 and A223068, sequences related to the complete elliptic integral of the first kind K(k), and to A280442 and A046161, sequences related to the unsigned Euler numbers A000364.
In this sequence certain prime numbers appear on a regular basis, either by itself or as a factor of a composite number, i.e., a(n)=11 if n=7+5*k, a(n)=17 if n=13+8*k, a(n)=23 if n=15+11*k, a(n)=43 if n=28+21*k, a(n)=73 if n=41+36*k, a(n)=101 if n=58+50*k, a(n)=89 if n=60+44*k, a(n)=83 if n=65+41*k, in all cases k >= 0. We observe that the period T of each prime is apparently T = (prime-1)/2.
Conjecture: The sequence A280443 will not have a(n)=1 after some point.

Cf. A000364 (Euler numbers), A046161, A067624, A223067, A223068, A280442.

nmax:=68: A067624 := n -> 2^(2*n)*(2*n)!: f := series((exp(add((-1)^n*euler(2*n) * x^n/(2*n), n=1..nmax+1))), x=0, nmax+1): for n from 0 to nmax do b(n) := coeff(f, x, n); a(n) := numer(b(n))/numer(b(n)/A067624(n)) od: seq(a(n), n=0..nmax);

def A280443_list(prec):
    P. = PowerSeriesRing(QQ, default_prec=2*prec)
    g = lambda x: exp(sum((-1)^k*euler_number(2*k)*x^k/(2*k) for k in (1..prec+1)))
    R = P(g(x)).coefficients()
    d = lambda n: 2*n - sum(n.digits(2))
    return [(2^d(n)*R[n]/(numerator(R[n]/factorial(2*n)))) for n in (0..prec)]
print(A280443_list(68)) # Peter Luschny, Jan 05 2017

a(n) = A280442(n)/A223067(n).
a(n) = A067624(n)*A046161(n)/A223068(n).
a(n) = A280442(n)/numer((A280442(n)/A046161(n))/A067624(n)).

A280442 Numerators of coefficients in the Taylor series expansion of Sum_{n>=0} exp((-1)^neuler(2n)x^n/(2n)).

Original entry on oeis.org

1, 1, 11, 173, 22931, 1319183, 233526463, 29412432709, 39959591850371, 8797116290975003, 4872532317019728133, 1657631603843299234219, 2718086236621937756966743, 1321397724505770800453750299, 1503342018433974345747514544039

Offset: 0

Johannes W. Meijer and Joseph Abate, Jan 03 2017

This sequence is related in a peculiar way to A223067, a sequence related to the period T of a simple gravity pendulum for arbitrary amplitudes. See A280443 for more information.

Sergey Khrushchev, Orthogonal Polynomials and Continued Fractions, From Euler's point of view, Corollary 4.26, p. 192, 2008.

Cf. A046161 (denominators).

Cf. A000364 (Euler numbers), A223067, A255881, A280443.

nmax:=14: f := series(exp(add((-1)^n*euler(2*n) * x^n/(2*n), n=1..nmax+1)), x=0, nmax+1): for n from 0 to nmax do a(n) := numer(coeff(f, x, n)) od: seq(a(n), n=0..nmax);

def A280442_list(prec):
    P. = PowerSeriesRing(QQ, default_prec=2*prec)
    def g(x): return exp(sum((-1)^k*euler_number(2*k)*x^k/(2*k) for k in (1..prec+1)))
    R = P(g(x)).coefficients()
    d = lambda n: 2^(2*n - sum(n.digits(2)))
    return [d(n)*R[n] for n in (0..prec)]
print(A280442_list(14)) # Peter Luschny, Jan 05 2017

a(n) = numerators of coefficients in the Taylor series expansion of Sum_{n>=0} exp((-1)^n * euler(2*n)*x^n/(2*n)).

Let S = Sum_{n>=0} (-1)^n*euler(2*n)*x^n/(2*n) and w(n) = A005187(n) then a(n) = 2^w(n) * [x^n] exp(S). - Peter Luschny, Jan 05 2017

A178792 Dot product of the rows of triangle A046899 with vector (1,2,4,8,...) (= A000079).

Original entry on oeis.org

1, 5, 31, 209, 1471, 10625, 78079, 580865, 4361215, 32978945, 250806271, 1916280833, 14698053631, 113104519169, 872801042431, 6751535300609, 52337071357951, 406468580343809, 3162019821780991, 24634626678980609, 192179216026959871

Offset: 0

Joseph Abate, Jun 15 2010

Hankel transform is A133460.

			a(3) = (1,4,10,20)dot(1,2,4,8) = 209.

Vincenzo Librandi, Table of n, a(n) for n = 0..200
J. Abate and W. Whitt, Brownian motion and generalized Catalan numbers, Journal of Integer Sequences, Vol. 14 (2011).
Karl Dilcher and Maciej Ulas, Arithmetic properties of polynomial solutions of the Diophantine equation P(x)x^(n+1)+Q(x)(x+1)^(n+1) = 1, arXiv:1909.11222 [math.NT], 2019.
Nicolle González, Pamela E. Harris, Gordon Rojas Kirby, Mariana Smit Vega Garcia, and Bridget Eileen Tenner, Pinnacle sets of signed permutations, arXiv:2301.02628 [math.CO], 2023.

Row sums of A091811.

Cf. A383326, A383716.

a := n -> binomial(2*n+2,n+1)*hypergeom([-n, n + 1], [n + 2], -1)/2:
seq(simplify(a(n)), n=0..20); # Peter Luschny, Feb 21 2017

CoefficientList[Series[(3-Sqrt[1-8*x])/(2*(1+x)*Sqrt[1-8*x]), {x, 0, 20}], x] (* Vaclav Kotesovec, Oct 20 2012 *)
Table[Sum[2^k*Binomial[n + k, k], {k, 0, n}], {n, 0, 20}] (* Michael De Vlieger, Oct 28 2016 *)
a[n_] := (-1)^(n + 1) - 2^(n + 1) (2n + 1) Binomial[2n, n] Hypergeometric2F1[1, 2n + 2, n + 2, 2]/(n + 1); Array[a, 22, 0] (* Robert G. Wilson v, Jul 21 2018 *)

a(n) = Sum_{k = 0..n} A046899(n,k)*2^k = Sum_{k = 0..n} 2^k * binomial(n+k,k).
G.f.: (1/3)*(4/sqrt(1 - 8*x) - 1/(1 - x*c(2*x))) with c(x) the g.f. of the Catalan numbers A000108.
a(n) = (1/3)*(4*2^n*A000984(n) - A064062(n)).
a(n) + a(n+1) = 6*2^n*A001700(n).
O.g.f.: (3 - sqrt(1 - 8*x))/(2*(1 + x)*sqrt(1 - 8*x)). - Peter Bala, Apr 10 2012
a(n) = 2^n *binomial(2+2*n,1+n)*2F1(1, 2+2*n; 2+n;-1). - Olivier Gérard, Aug 19 2012
D-finite with recurrence n*a(n) = (7*n - 4)*a(n-1) + 4*(2*n - 1)*a(n-2). - Vaclav Kotesovec, Oct 20 2012
a(n) ~ 2^(3n+2)/(3*sqrt(Pi*n)). - Vaclav Kotesovec, Oct 20 2012
a(n) = Sum_{k = 0..n} binomial(k+n,n) * binomial(2*n+1,n-k). - Vladimir Kruchinin, Oct 28 2016
a(n) = 1/2*(n + 1)*binomial(2*n+2,n+1)*Sum_{k = 0..n} binomial(n,k)/(n + k + 1). - Peter Bala, Feb 21 2017
a(n) = binomial(2*n+2,n+1)*hypergeom([-n, n+1], [n+2], -1)/2. - Peter Luschny, Feb 21 2017
a(n) = (-1)^(n+1) - 2^(n+1)*(2*n+1)*binomial(2*n,n)*hypergeom([1, 2*n+2], [n+2], 2)/(n+1). - John M. Campbell, Jul 14 2018
From Akiva Weinberger, Dec 06 2024: (Start)
a(n) = (2*n + 1)!/(n!^2) * Integral_{t=0..1} (t + t^2)^n dt.
a(n) = (Integral_{t=0..1} (t + t^2)^n dt) / (Integral_{t=0..1} (t - t^2)^n dt). (End)
a(n) = (-1)^n * Sum_{k=0..n} binomial(2*n+1,k) * (-2)^k. - André M. Timpanaro, Dec 15 2024
From Seiichi Manyama, Aug 04 2025: (Start)
a(n) = [x^n] (1+x)^(2*n+1)/(1-x)^(n+1).
a(n) = [x^n] 1/((1-x) * (1-2*x)^(n+1)). (End)

cp's OEIS Frontend

User: Joseph Abate

A280443 a(n) = A280442(n)/A223067(n) = A067624(n)*A046161(n)/A223068(n).

Views

Author

Keywords

Comments

Crossrefs

Programs

Maple

Sage

Formula

A280442 Numerators of coefficients in the Taylor series expansion of Sum_{n>=0} exp((-1)^neuler(2n)x^n/(2n)).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Sage

Formula

A178792 Dot product of the rows of triangle A046899 with vector (1,2,4,8,...) (= A000079).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

cp's OEIS Frontend

User: Joseph Abate

A280443 a(n) = A280442(n)/A223067(n) = A067624(n)*A046161(n)/A223068(n).

Views

Author

Keywords

Comments

Crossrefs

Programs

Maple

Sage

Formula

A280442 Numerators of coefficients in the Taylor series expansion of Sum_{n>=0} exp((-1)^n*euler(2*n)*x^n/(2*n)).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Sage

Formula

A178792 Dot product of the rows of triangle A046899 with vector (1,2,4,8,...) (= A000079).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A280442 Numerators of coefficients in the Taylor series expansion of Sum_{n>=0} exp((-1)^neuler(2n)x^n/(2n)).