|
|
A076790
|
|
Merge digits of Pi and Phi (golden section) starting with 3.
|
|
1
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
Is the real number 3.611381... irrational? Transcendental?
|
|
LINKS
|
|
|
EXAMPLE
|
Pi = 3, 1, 4, 1, 5, 9, 2, ...
Phi = 6, 1, 8, 0, 3, 3, 9, ...
so we get 3, 6, 1, 1, 4, 8, 1, ... [corrected by Jesse Fiedler, Aug 22 2019]
|
|
MATHEMATICA
|
Riffle[ RealDigits[ Pi, 10, 55][[1]], RealDigits[ GoldenRatio - 1, 10, 55][[1]], 2] (* Robert G. Wilson v, Mar 19 2014 *)
|
|
PROG
|
(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" "); ); }
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|