A001355 -id:A001355 - cp's OEIS frontend

A058382 Continued fraction for Pie (A001355: digits of Pi and e interlaced).

32, 5, 1, 2, 1, 8, 2, 5, 1, 3, 1, 28, 1, 15, 1, 1, 4, 1, 2, 1, 1, 1, 2, 2, 1, 17, 1, 1, 2, 33, 1, 3, 1, 24, 1, 23, 2, 16, 4, 1, 1, 2, 2, 7, 1, 7, 11, 2, 1, 3, 2, 1, 1, 2, 7, 2, 2, 15, 3, 2, 1, 12, 1, 7, 7, 1, 1, 1, 34, 1, 1, 17, 1, 107, 1, 2, 2, 4, 1, 1, 4, 1, 1, 1, 5, 8, 1, 9, 6, 2, 4, 1, 6, 2, 1, 61

Offset: 1

Robert G. Wilson v, Dec 19 2000

Cf. A001355.

a = RealDigits[ N[ Pi, 500] ][ [1] ]; b = RealDigits[ N[ E, 500] ][ [1] ]; c = Table[0, {1000} ]; Do[ c[ [2n - 1] ] = a[ [n] ]; c[ [2n] ] = b[ [n] ], {n, 500} ]; ContinuedFraction[ FromDigits[ {c, {2} } ], 100][ [1] ]

A104691 Decimal expansions of e and Pi interlaced.

Original entry on oeis.org

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

Offset: 1

Zak Seidov, Apr 23 2005

Within 2.5 per cent of e^Pi (A039661: 23.14069...) or 5.5 per cent of Pi^e (A059850: 22.45915...). - Robert G. Wilson v, Jan 04 2013

Cf. A001355.

Riffle[RealDigits[E, 10, 53][[1]], RealDigits[Pi, 10, 53][[1]]] (* Robert G. Wilson v, Jan 04 2013 *)

A078424 Mix digits of Pi, e and phi.

Original entry on oeis.org

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

Offset: 1

Cino Hilliard, Dec 29 2002

			3.211764111885209832136895283885478549997...

Cf. A000796, A001113, A001622, A001355, A076790.

p = RealDigits[Pi, 10, 40][[1]]; e = RealDigits[E, 10, 40][[1]]; g = RealDigits[GoldenRatio, 10, 40][[1]]; a = {}; Do[a = Append[a, p[[n]]]; a = Append[a, e[[n]]]; a = Append[a, g[[n]]], {n, 1, 40}]; a
Riffle[Riffle[RealDigits[Pi,10,100][[1]],RealDigits[E,10,100][[1]]], RealDigits[GoldenRatio,10,100][[1]],3] (* Harvey P. Dale, Jun 20 2011 *)

piephi(n) = { default(realprecision,1000); p = Pi/10; e = exp(1)/10; phe = (sqrt(5)+1)/20; default(realprecision,28); forstep(x=1,n,2, d = p*10; d1=floor(d); p = frac(d); d2 = e*10; d3 = floor(d2); e = frac(d2); d4 = phe*10; d5 = floor(d4); phe = frac(d4); print1(d1" "d3" "d5" "); ); }

{ A000796(n), A001113(n), A001622(n), ..., n=1, 2, ... }.

Offset changed by Alois P. Heinz, Aug 22 2024

A284155 Continued fraction expansion of A104691: ePi, digits of e and Pi interleaved.

Original entry on oeis.org

2, 2, 1, 2, 3, 1, 2, 7, 5, 1, 2, 1, 15, 19, 1, 3, 4, 2, 1, 16, 1, 1, 10, 3, 9, 1, 1, 4, 9, 2, 1, 3, 2, 4, 7, 1, 2, 23, 1, 14, 1, 1, 5, 1, 13, 1, 2, 42, 1, 1, 1, 1, 3, 6, 15, 1, 1, 2, 1, 7, 2, 2, 1, 6, 864, 1, 19, 2, 1, 18, 1, 1, 1, 2, 88, 2, 4, 1, 1, 4, 1

Offset: 0

M. F. Hasler, Mar 21 2017

Continued fraction expansion of A104691, as A058382 is the continued fraction expansion of A001355 ("Pie"). Added mainly for completeness, mathematical interest is questionable.

OEIS index to sequences related to Pi.

Cf. A104691, A058382, A001355.

contfrac(eval(Strchr(vector(#(c=apply(c->Vecsmall(Str(c)),[exp(1),Pi]))[1],i,c[i%2+1][i\2+(i!=3)])))-1)

cp's OEIS Frontend

A058382 Continued fraction for Pie (A001355: digits of Pi and e interlaced).

Views

Author

Keywords

Crossrefs

Programs

Mathematica

A104691 Decimal expansions of e and Pi interlaced.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

A078424 Mix digits of Pi, e and phi.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A284155 Continued fraction expansion of A104691: ePi, digits of e and Pi interleaved.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI