|
|
A275694
|
|
Lazy expansion of Pi in golden base (i.e., phi = (1+sqrt(5))/2) without consecutive zeros.
|
|
0
|
|
|
1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
2
|
|
LINKS
|
|
|
FORMULA
|
Pi = phi^1 + phi^-1 + phi^-2 + phi^-3 + phi^-4 + phi^-6 + ...
|
|
EXAMPLE
|
10.111101111110101...
|
|
PROG
|
(PARI)
f(len) = {
my(o=0, a=1, b=1, phi = quadgen(5), t=3, s=3, n=1, na=0, d=0, da=24);
vector(len, x,
until (b-a + a * phi < s,
n += na;
na += 8;
d += da;
da += 32;
t = (t*n)/d;
s += t;
);
if (a + b * phi <= s,
s -= b - a + a * phi;
o=1,
o=0
);
a = b - a;
b -= a;
o
)
};
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|