A056054 -id:A056054 - cp's OEIS frontend

A056053 a(n) = smallest odd number 2m+1 such that the partial sum of the odd harmonic series Sum_{j=0..m} 1/(2j+1) is > n.

1, 3, 15, 113, 837, 6183, 45691, 337607, 2494595, 18432707, 136200301, 1006391657, 7436284415, 54947122715, 406007372211, 3000011249847, 22167251422541, 163795064320249, 1210290918990281, 8942907496445513, 66079645178783351, 488266205223462461, 3607826381608149807

Offset: 0

Robert G. Wilson v, Jul 25 2000 and Jan 11 2004

nonn

a(2) = 15 and a(3) = 113 are related to the Borwein integrals. Concretely, a(2) = 15 is the smallest odd m such that the integral Integral_{x=-oo..oo} Product_{1<=k<=m, k odd} (sin(k*x)/(k*x)) dx is slightly less than Pi, and a(3) = 113 is the smallest odd m such that the integral Integral_{x=-oo..oo} cos(x) * Product_{1<=k<=m, k odd} (sin(k*x)/(k*x)) dx is slightly less than Pi/2. See the Wikipedia link and the 3Blue1Brown video link below. - Jianing Song, Dec 10 2022

Calvin C. Clawson, "Mathematical Mysteries, The Beauty and Magic of Numbers," Plenum Press, NY and London, 1996, page 64.

Robert G. Wilson v, Table of n, a(n) for n = 0..500
Grant Sanderson, Researchers thought this was a bug (Borwein integrals), 3Blue1Brown video (2022).
Wikipedia, Borwein integral

Cf. A002387, A056054, A091463, A091464, A091465.

Cf. also A092318, A092317, A092315, A281355, A074599, A025547.

s = 0; k = 1; Do[ While[s = N[s + 1/k, 24]; s <= n, k += 2]; Print[k]; k += 2, {n, 1, 11}]

a(n) ~ floor((1/2)*A002387(2n)).
The next term is approximately the previous term * e^2.
a(n) = A092315(n)*2 + 1 = floor(exp(n*2-Euler)/4+1/8)*2+1 for all n (conjectured). - M. F. Hasler, Jan 24 2017
a(n) ~ exp(2*n - A350763) = (1/2)*exp(2*n - gamma), gamma = A001620. - A.H.M. Smeets, Apr 15 2022

Corrected by N. J. A. Sloane, Feb 16 2004
More terms from Robert G. Wilson v, Apr 17 2004
a(17) corrected - see correction in A092315. - Gerhard Kirchner, Jul 25 2020
a(0) prepended by Robert G. Wilson v, Oct 23 2024

A091463 a(n) is the smallest j such that 1/1 + 1/4 + 1/7 + ... + 1/j exceeds n.

Original entry on oeis.org

4, 52, 1060, 21301, 427873, 8594032, 172615738, 3467079760, 69638158519

Offset: 1

Robert G. Wilson v, Jan 12 2004

Cf. A002387, A056053, A056054, A091462, A091464.

s = 0; k = 1; Do[ While[s = N[s + 1/k, 24]; s <= n, k += 3]; Print[k]; k += 3, {n, 1, 7}]

The next term is approximately the previous term * e^3.

Name edited by Jon E. Schoenfield, Dec 20 2019

a(8)-a(9) from Hugo Pfoertner, Dec 27 2019

A091464 a(n) is the smallest j such that 1/2 + 1/5 + 1/8 + ... + 1/j exceeds n.

Original entry on oeis.org

17, 323, 6506, 130664, 2624438, 52713275, 1058774426, 21266052797, 427140088670

Offset: 1

Robert G. Wilson v, Jan 12 2004

Cf. A002387, A056053, A056054, A091462, A091463.

s = 0; k = 2; Do[ While[s = N[s + 1/k, 24]; s <= n, k += 3]; Print[k]; k += 3, {n, 1, 7}]

The next term is approximately the previous term * e^3.

a(8)-a(9) from Hugo Pfoertner, Dec 26 2019

A091462 a(n) is the smallest j such that 1/3 + 1/6 + 1/9 + ... + 1/j exceeds n.

Original entry on oeis.org

3, 33, 681, 13650, 274140, 5506263, 110596236, 2221384803, 44617706493, 896170591203, 18000067499079, 361541020372644, 7261745513941683, 145856057647068072, 2929597231340774769, 58842533360163495285, 1181883876459465987195, 23738772239546776075803, 476805986328559173414774

Offset: 0

Robert G. Wilson v, Jan 12 2004

nonn

Cf. A002387, A056053, A056054, A091463, A091464.

s = 0; k = 3; Do[ While[s = N[s + 1/k, 24]; s <= n, k += 3]; Print[k]; k += 3, {n, 1, 12}]

a(n) = 3*A002387(3n).

The next term is approximately the previous term * e^3.

a(0) prepended and more terms added by Max Alekseyev, Sep 01 2023

cp's OEIS Frontend

A056053 a(n) = smallest odd number 2m+1 such that the partial sum of the odd harmonic series Sum_{j=0..m} 1/(2j+1) is > n.

Views

Author

Keywords

Comments

References

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A091463 a(n) is the smallest j such that 1/1 + 1/4 + 1/7 + ... + 1/j exceeds n.

Views

Author

Keywords

Crossrefs

Programs

Mathematica

Formula

Extensions

A091464 a(n) is the smallest j such that 1/2 + 1/5 + 1/8 + ... + 1/j exceeds n.

Views

Author

Keywords

Crossrefs

Programs

Mathematica

Formula

Extensions

A091462 a(n) is the smallest j such that 1/3 + 1/6 + 1/9 + ... + 1/j exceeds n.

Views

Author

Keywords

Crossrefs

Programs

Mathematica

Formula

Extensions