|
%I #13 Feb 06 2023 12:48:15
%S 1,3,0,2,1,1,1,3,4,2,3,0,4,1,2,0,2,4,2,2,3,1,4,4,3,1,1,4,0,2,0,4,0,2,
%T 1,2,1,1,1,0,3,3,1,3,3,0,4,0,0,4,0,2,4,1,0,2,2,3,0,1,1,0,4,3,4,2,2,2,
%U 1,4,4,2,1,2,1,1,4,4,3,2,2,2,1,0,3,1,2,4,1,0
%N Expansion of phi (golden ratio) in base 5.
%t RealDigits[(1 + Sqrt[5])/2, 5, 90]
%t RealDigits[GoldenRatio,5,120][[1]] (* _Harvey P. Dale_, Jan 19 2021 *)
%o (PARI) default(realprecision, 1000); x=(1+sqrt(5))/2;
%o for(n=1, 100, d=floor(x); x=(x-d)*5; print1(d, ", ")); \\ _Jinyuan Wang_, Mar 21 2020
%o (PARI) a(n) = floor(quadgen(5)*5^(n-1))%5 \\ _Chittaranjan Pardeshi_, Feb 06 2023
%Y Cf. A001622, A004714.
%K nonn,base,cons
%O 1,2
%A Keith Rarick, Dan McCandless (kr(AT)xph.us), Aug 18 2009
|
