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.

A127555 Decimal expansion of the number 4.164393920313549053413239828743... having continued fraction expansion 4, 6, 12, 18, 30, 42, 60, 72, 102, ... (averages of twin primes A014574).

Original entry on oeis.org

4, 1, 6, 4, 3, 9, 3, 9, 2, 0, 3, 1, 3, 5, 4, 9, 0, 5, 3, 4, 1, 3, 2, 3, 9, 8, 2, 8, 7, 4, 3, 1, 2, 1, 9, 7, 4, 1, 3, 3, 3, 3, 6, 9, 1, 9, 2, 6, 2, 3, 0, 1, 1, 8, 9, 1, 9, 7, 6, 3, 6, 7, 6, 9, 0, 2, 6, 4, 9, 3, 0, 8, 8, 6, 1, 7, 5, 2, 8, 7, 1, 9, 2, 4, 2, 9, 6, 3, 1, 1, 3, 8, 9, 4, 6, 3, 6, 6, 6, 3
Offset: 1

Views

Author

Artur Jasinski, Jan 18 2007

Keywords

Crossrefs

Cf. A064442, A127549, A127550, A127551, A127552, A127553, A127556, A127557, A127558, A127559.

Programs

  • Mathematica
    a = {}; Do[If[PrimeQ[Prime[n] + 2], AppendTo[a, Prime[n] + 1]], {n, 2, 500}]; RealDigits[N[FromContinuedFraction[a], 100]][[1]]

A127556 Decimal expansion of the number 4.1636635147332912770473687837946011358... having continued fraction expansion 4, 6, 9, 12, 15, 18, 21, 26, 30, 34, 39, ... (arithmetical average of two consecutive odd primes A024675).

Original entry on oeis.org

4, 1, 6, 3, 6, 6, 3, 5, 1, 4, 7, 3, 3, 2, 9, 1, 2, 7, 7, 0, 4, 7, 3, 6, 8, 7, 8, 3, 7, 9, 4, 6, 0, 1, 1, 3, 5, 8, 0, 5, 7, 6, 4, 4, 9, 7, 4, 6, 3, 7, 4, 3, 9, 6, 9, 1, 5, 9, 0, 3, 6, 9, 5, 1, 4, 8, 8, 9, 8, 3, 6, 6, 8, 4, 4, 8, 0, 3, 1, 3, 7, 5, 7, 8, 0, 5, 3, 7, 9, 7, 1, 6, 5, 3, 8, 4, 7, 2, 6, 7
Offset: 1

Views

Author

Artur Jasinski, Jan 18 2007

Keywords

Crossrefs

Cf. A064442, A127549, A127550, A127551, A127552, A127553, A127555, A127556, A127557, A127558, A127559, A024675.

Programs

  • Mathematica
    a = {}; Do[AppendTo[a, (Prime[n] + Prime[n + 1])/2], {n, 2, 500}]; RealDigits[N[FromContinuedFraction[a], 100]][[1]]

Extensions

a(100) corrected by Sean A. Irvine, Jul 09 2023

A127559 Decimal expansion of the number 734.000353982279850297391846... having continued fraction expansion 734, 2825, 5957, 10305, 13932, ... (interprimes of third order A126556).

Original entry on oeis.org

7, 3, 4, 0, 0, 0, 3, 5, 3, 9, 8, 2, 2, 7, 9, 8, 5, 0, 2, 9, 7, 3, 9, 1, 8, 4, 6, 1, 5, 9, 2, 7, 6, 9, 4, 9, 1, 1, 2, 4, 7, 3, 4, 1, 2, 2, 3, 9, 9, 1, 6, 1, 1, 5, 8, 1, 5, 8, 2, 6, 1, 8, 9, 2, 4, 0, 3, 1, 3, 6, 2, 0, 9, 5, 9, 1, 6, 3, 9, 3, 0, 9, 5, 9, 1, 7, 9, 4, 0, 9, 5, 2, 7, 0, 5, 4, 2, 8, 2, 5
Offset: 3

Views

Author

Artur Jasinski, Jan 18 2007

Keywords

Crossrefs

Cf. A064442, A127549, A127550, A127551, A127552, A127553, A127555, A127556, A127557, A127558, A127559, A126555, A126556.

Extensions

Offset corrected by R. J. Mathar, Feb 05 2009

A127558 Decimal expansion of the number 29.000694926917980144237135814... having continued fraction expansion 29, 1439, 4211, 7703, 12907, 14957, ... (A126555).

Original entry on oeis.org

2, 9, 0, 0, 0, 6, 9, 4, 9, 2, 6, 9, 1, 7, 9, 8, 0, 1, 4, 4, 2, 3, 7, 1, 3, 5, 8, 1, 4, 0, 8, 7, 8, 4, 9, 1, 2, 0, 4, 8, 7, 4, 8, 2, 8, 7, 5, 9, 7, 5, 7, 3, 4, 7, 7, 9, 8, 4, 2, 5, 9, 3, 4, 4, 6, 1, 5, 1, 6, 0, 6, 4, 5, 0, 8, 6, 1, 3, 6, 3, 8, 3, 5, 5, 3, 0, 0, 3, 0, 9, 5, 0, 0, 9, 6, 7, 2, 9, 5, 6
Offset: 2

Views

Author

Artur Jasinski, Jan 18 2007

Keywords

Crossrefs

Cf. A064442, A127549, A127550, A127551, A127552, A127553, A127555, A127556, A127557, A127559, A126555.

Programs

  • Mathematica
    b = {}; a = {}; Do[If[PrimeQ[((Prime[n + 2] + Prime[n + 1])/2 + (Prime[n + 1] + Prime[n])/2)/2], AppendTo[a, ((Prime[n + 2] + Prime[n + 1])/2 + (Prime[n + 1] + Prime[n])/2)/2]], {n, 1, 100000}];Do[If[PrimeQ[(a[[k + 1]] + a[[k]])/2], AppendTo[b, (a[[k + 1]] + a[[k]])/2]], {k, 1, Length[a] - 1}]; RealDigits[N[FromContinuedFraction[b], 100]][[1]]

Extensions

Offset corrected by R. J. Mathar, Feb 05 2009

A108170 Decimal expansion of the number 5.1413105308627310489... having continued fraction expansion 5, 7, 13, 19, 31, 43, 61, 73, 103, 109, 139, 151, 181, ... (greater of twin primes A006512).

Original entry on oeis.org

5, 1, 4, 1, 3, 1, 0, 5, 3, 0, 8, 6, 2, 7, 3, 1, 0, 4, 8, 9, 0, 6, 8, 0, 8, 9, 8, 6, 1, 2, 9, 1, 8, 2, 2, 3, 6, 9, 5, 5, 6, 6, 3, 2, 9, 5, 2, 0, 3, 1, 8, 3, 5, 0, 9, 9, 4, 7, 9, 8, 4, 0, 5, 2, 7, 3, 4, 1, 6, 1, 6, 2, 2, 0, 8, 6, 9, 1, 3, 1, 6, 8, 6, 8, 1, 4, 8, 4, 1, 7, 6, 7, 3, 1, 2, 2, 4, 0, 1, 9
Offset: 1

Views

Author

Artur Jasinski, Apr 20 2007

Keywords

Crossrefs

Cf. A064442, A127549, A127550, A127551, A127552, A127555, A127556, A127557, A127558, A127559.

Programs

  • Mathematica
    a = {}; Do[If[PrimeQ[Prime[n] + 2], AppendTo[a, 2 + Prime[n]]], {n, 2, 500}]; RealDigits[N[FromContinuedFraction[a], 100]][[1]]

Extensions

a(99)-a(100) corrected by Sean A. Irvine, Jul 09 2023
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.