login
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
OFFSET
2
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
)
};
print(f(200)); \\ Chittaranjan Pardeshi, Apr 21 2022
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved