OFFSET
3
LINKS
Chittaranjan Pardeshi, 100,000 digits of e in base phi
EXAMPLE
100.0000100001001000000001000...
MATHEMATICA
RealDigits[E, GoldenRatio, 111][[1]] (* Robert G. Wilson v, Feb 26 2010 *)
PROG
(PARI)
alist(len) = {
my(phi = quadgen(5), n=1, f=1, r=1/f, e=1+1, hi=e+r, t=0, w=phi^3);
vector(len, i,
w/=phi;
while ( t+w < hi && t+w > e,
n += 1;
f *= n;
r = 1/f;
e += r;
hi = e+r;
);
if (t+w <= e, t += w; 1, 0))};
alist(1000) \\ Chittaranjan Pardeshi, May 22 2022
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Bryan Jacobs (bryanjj(AT)gmail.com), Apr 10 2005
EXTENSIONS
Corrected by Arkadiusz Wesolowski, Sep 30 2011
STATUS
approved