%I #23 May 31 2022 22:28:06
%S 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,
%T 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,
%U 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
%N Expansion of e in base phi.
%H Chittaranjan Pardeshi, <a href="/A105165/a105165.txt">100,000 digits of e in base phi</a>
%e 100.0000100001001000000001000...
%t RealDigits[E, GoldenRatio, 111][[1]] (* _Robert G. Wilson v_, Feb 26 2010 *)
%o (PARI)
%o alist(len) = {
%o my(phi = quadgen(5), n=1, f=1, r=1/f, e=1+1, hi=e+r, t=0, w=phi^3);
%o vector(len, i,
%o w/=phi;
%o while ( t+w < hi && t+w > e,
%o n += 1;
%o f *= n;
%o r = 1/f;
%o e += r;
%o hi = e+r;
%o );
%o if (t+w <= e, t += w; 1, 0))};
%o alist(1000) \\ _Chittaranjan Pardeshi_, May 22 2022
%Y Cf. A001113, A001622, A102243.
%K base,nonn
%O 3
%A Bryan Jacobs (bryanjj(AT)gmail.com), Apr 10 2005
%E Corrected by _Arkadiusz Wesolowski_, Sep 30 2011
|