A105165 Expansion of e in base phi.

1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0

Offset

3

Links

Table of n, a(n) for n=3..107.

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

Cf. A001113, A001622, A102243.

Sequence in context: A015087 A082784 A369643 * A058342 A205808 A238897

Adjacent sequences: A105162 A105163 A105164 * A105166 A105167 A105168

Keyword

base,nonn

Author

Bryan Jacobs (bryanjj(AT)gmail.com), Apr 10 2005

Extensions

Corrected by Arkadiusz Wesolowski, Sep 30 2011

Status

approved