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

A098390 Prime(n)+Log2(prime(n)), where Log2=A000523.

Original entry on oeis.org

3, 4, 7, 9, 14, 16, 21, 23, 27, 33, 35, 42, 46, 48, 52, 58, 64, 66, 73, 77, 79, 85, 89, 95, 103, 107, 109, 113, 115, 119, 133, 138, 144, 146, 156, 158, 164, 170, 174, 180, 186, 188, 198, 200, 204, 206, 218, 230, 234, 236, 240, 246, 248, 258, 265, 271, 277, 279
Offset: 1

Views

Author

Reinhard Zumkeller, Sep 06 2004

Keywords

Comments

a(n) = A000040(n) + A098388(n).

Examples

			a(10) = A000040(10) + A098388(10) = 29 + 4 = 33.

Crossrefs

Cf. A098389, A014688, A098387, A098393.

Programs

  • Mathematica
    #+Floor[Log[2,#]]&/@Prime[Range[60]] (* Harvey P. Dale, Dec 30 2011 *)

A098386 a(n) = prime(n)-Log2(n), where Log2 = A000523.

Original entry on oeis.org

2, 2, 4, 5, 9, 11, 15, 16, 20, 26, 28, 34, 38, 40, 44, 49, 55, 57, 63, 67, 69, 75, 79, 85, 93, 97, 99, 103, 105, 109, 123, 126, 132, 134, 144, 146, 152, 158, 162, 168, 174, 176, 186, 188, 192, 194, 206, 218, 222, 224, 228, 234, 236, 246, 252, 258, 264, 266, 272, 276
Offset: 1

Views

Author

Reinhard Zumkeller, Sep 06 2004

Keywords

Examples

			a(10) = A000040(10) - A000523(10) = 29 - 3 = 26.

Crossrefs

Cf. A000040, A000523, A098387, A014689, A098389, A098392.

Programs

  • Mathematica
    Table[Prime[n]-Floor[Log2[n]],{n,60}] (* Harvey P. Dale, Nov 20 2021 *)

A098392 Prime(n)-Log2(Log2(prime(n))), where Log2=A000523.

Original entry on oeis.org

2, 3, 4, 6, 10, 12, 15, 17, 21, 27, 29, 35, 39, 41, 45, 51, 57, 59, 65, 69, 71, 77, 81, 87, 95, 99, 101, 105, 107, 111, 125, 129, 135, 137, 147, 149, 155, 161, 165, 171, 177, 179, 189, 191, 195, 197, 209, 221, 225, 227, 231, 237, 239, 249, 254, 260, 266, 268, 274, 278
Offset: 1

Views

Author

Reinhard Zumkeller, Sep 06 2004

Keywords

Comments

a(n) = A000040(n) - A098391(n).

Examples

			a(10) = A000040(10) - A098391(10) = 29 - 2 = 27.

Crossrefs

Cf. A098390, A014689, A098386, A098389.

A098393 Prime(n)+Log2(Log2(prime(n))), where Log2=A000523.

Original entry on oeis.org

2, 3, 6, 8, 12, 14, 19, 21, 25, 31, 33, 39, 43, 45, 49, 55, 61, 63, 69, 73, 75, 81, 85, 91, 99, 103, 105, 109, 111, 115, 129, 133, 139, 141, 151, 153, 159, 165, 169, 175, 181, 183, 193, 195, 199, 201, 213, 225, 229, 231, 235, 241, 243, 253, 260, 266, 272, 274, 280
Offset: 1

Views

Author

Reinhard Zumkeller, Sep 06 2004

Keywords

Comments

a(n) = A000040(n) + A098391(n).

Examples

			a(10) = A000040(10) + A098391(10) = 29 + 2 = 31.

Crossrefs

Cf. A098389, A014688, A098387, A098390.

Programs

  • Mathematica
    #+Floor[Log[2,Floor[Log[2,#]]]]&/@Prime[Range[60]] (* Harvey P. Dale, May 07 2017 *)

A098397 Number of primes that are not less than prime(n)-Log2(prime(n)) and not greater than prime(n)+Log2(prime(n)), where Log2=A000523.

Original entry on oeis.org

2, 2, 3, 2, 2, 2, 3, 3, 2, 2, 2, 2, 3, 3, 2, 1, 2, 2, 4, 3, 4, 3, 3, 2, 3, 4, 5, 5, 4, 3, 2, 3, 3, 2, 2, 3, 3, 3, 3, 3, 3, 2, 3, 4, 4, 3, 1, 3, 4, 4, 4, 3, 2, 2, 3, 4, 4, 4, 5, 3, 3, 1, 3, 4, 4, 3, 2, 2, 3, 3, 4, 3, 3, 3, 3, 3, 3, 3, 3, 2, 2, 2, 3, 3, 4, 3, 3, 4, 4, 4, 3, 2, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 4, 4, 4
Offset: 1

Views

Author

Reinhard Zumkeller, Sep 06 2004

Keywords

Comments

a(n) = A000720(A098389(n)) - A000720(A098390(n)-1);
A098398(n) <= A098396(n) <= a(n) <= A097935(n).

Examples

			a(10) = #{p prime: A098389(10) <= p <= A098390(10)} =
= #{p prime: 25 <= p <= 33} = #{29,31} = 2.
Showing 1-5 of 5 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.