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

Author

Cino Hilliard, Dec 29 2002

Keywords

• base
• cons
• easy
• less
• nonn

Examples

			3.211764111885209832136895283885478549997...
		

Crossrefs

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

Programs

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

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

Formula

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

Extensions

Offset changed by Alois P. Heinz, Aug 22 2024