A076790 Interleave digits of Pi and phi-1 (golden section) starting with 3.
3, 6, 1, 1, 4, 8, 1, 0, 5, 3, 9, 3, 2, 9, 6, 8, 5, 8, 3, 7, 5, 4, 8, 9, 9, 8, 7, 9, 9, 4, 3, 8, 2, 4, 3, 8, 8, 2, 4, 0, 6, 4, 2, 5, 6, 8, 4, 6, 3, 8, 3, 3, 8, 4, 3, 3, 2, 6, 7, 5, 9, 6, 5, 3, 0, 8, 2, 1, 8, 1, 8, 7, 4, 7, 1, 2, 9, 0, 7, 3, 1, 0, 6, 9, 9, 1, 3, 7, 9, 9, 9, 8, 3, 0, 7, 5, 5, 7, 1, 6, 0, 2, 5, 8
Offset: 1
Examples
Pi = 3, 1, 4, 1, 5, 9, 2, ... phi-1 = 6, 1, 8, 0, 3, 3, 9, ... so we get 3, 6, 1, 1, 4, 8, 1, ... [corrected by _Jesse Fiedler_, Aug 22 2019]
Programs
-
Mathematica
Riffle[ RealDigits[ Pi, 10, 55][[1]], RealDigits[ GoldenRatio - 1, 10, 55][[1]], 2] (* Robert G. Wilson v, Mar 19 2014 *)
-
PARI
\\ piphi alternating between Pi and Phi digit sequence \\ piphi.gp Pi and phi digits merged { piphi(n) = default(realprecision,10000); p = Pi/10; e = (sqrt(5)-1)/2; 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); print1(d1" "d3" "); ); }
Extensions
More terms from Robert G. Wilson v, Mar 19 2014
Offset changed by Alois P. Heinz, Aug 22 2024
Comments