A164629 - OEIS

%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