OFFSET
1,2
MATHEMATICA
RealDigits[(1 + Sqrt[5])/2, 5, 90]
RealDigits[GoldenRatio, 5, 120][[1]] (* Harvey P. Dale, Jan 19 2021 *)
PROG
(PARI) default(realprecision, 1000); x=(1+sqrt(5))/2;
for(n=1, 100, d=floor(x); x=(x-d)*5; print1(d, ", ")); \\ Jinyuan Wang, Mar 21 2020
(PARI) a(n) = floor(quadgen(5)*5^(n-1))%5 \\ Chittaranjan Pardeshi, Feb 06 2023
CROSSREFS
KEYWORD
AUTHOR
Keith Rarick, Dan McCandless (kr(AT)xph.us), Aug 18 2009
STATUS
approved