cp's OEIS Frontend

A076790 Interleave digits of Pi and phi-1 (golden section) starting with 3.

%I A076790 #22 Apr 16 2025 19:38:16
%S A076790 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,
%T A076790 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,
%U A076790 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
%N A076790 Interleave digits of Pi and phi-1 (golden section) starting with 3.
%C A076790 Is the real number 3.611381... irrational? Transcendental?
%e A076790 Pi = 3, 1, 4, 1, 5, 9, 2, ...
%e A076790 phi-1 = 6, 1, 8, 0, 3, 3, 9, ...
%e A076790 so we get 3, 6, 1, 1, 4, 8, 1, ... [corrected by _Jesse Fiedler_, Aug 22 2019]
%t A076790 Riffle[ RealDigits[ Pi, 10, 55][[1]], RealDigits[ GoldenRatio - 1, 10, 55][[1]], 2] (* _Robert G. Wilson v_, Mar 19 2014 *)
%o A076790 (PARI) \\ piphi alternating between Pi and Phi digit sequence
%o A076790 \\ piphi.gp Pi and phi digits merged
%o A076790 { 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" "); ); }
%Y A076790 Cf. A000796, A001622, A058382.
%K A076790 base,cons,nonn,less
%O A076790 1,1
%A A076790 _Cino Hilliard_, Nov 16 2002
%E A076790 More terms from _Robert G. Wilson v_, Mar 19 2014
%E A076790 Offset changed by _Alois P. Heinz_, Aug 22 2024