A078424 Mix digits of Pi, e and phi.

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,1

Links

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

Formula

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

Example

3.211764111885209832136895283885478549997...

Mathematica

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 *)

Prog

(PARI) 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" "); ); }

Crossrefs

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

Sequence in context: A073201 A118654 A111760 * A291117 A293181 A229345

Adjacent sequences: A078421 A078422 A078423 * A078425 A078426 A078427

Keyword

base,cons,easy,nonn

Author

Cino Hilliard, Dec 29 2002

Extensions

Offset changed by Alois P. Heinz, Aug 22 2024

Status

approved