A082892 Floor(q(j)), where q(j) = 2j/log(A000230(j)); log is natural logarithm, 2j-s are prime gaps > 1, A000230(j) is the minimal lesser prime opening the consecutive prime distance equals 2j.

1, 2, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 4, 3, 3, 4, 4, 4, 4, 4, 4, 5, 5, 4, 5, 5, 5, 5, 5, 5, 5, 6, 5, 6, 6, 6, 6, 6, 7, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 7, 8, 8, 8, 7, 8, 8, 8, 9, 8, 8, 9, 8, 8, 8, 9, 10, 9, 9, 10, 9, 8, 9, 9, 9, 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 9, 10, 10, 10, 10, 10, 11

Offset

1,2

Comments

For these larger and larger gap-initiating primes, integer part of relevant quotient,q, may exceed 27, all values between 1 and 28 occur. Observation supports conjecture that infsup(q) is infinity.

Links

Table of n, a(n) for n=1..99.

Mathematica

t=A000230 list; Table[Floor[2*j/Log[Part[t, j]]//N], {j, 1, Length[t]}]

Crossrefs

Cf. A000230, A082862, A082884-A082891, A002386.

Sequence in context: A008350 A019556 A165640 * A025839 A053261 A123584

Adjacent sequences: A082889 A082890 A082891 * A082893 A082894 A082895

Keyword

nonn

Author

Labos Elemer, Apr 17 2003

Status

approved