OFFSET
0,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..200
MATHEMATICA
With[{phi=RealDigits[GoldenRatio, 10, 50][[1]]}, Table[FromDigits[ Take[ phi, n]], {n, 20}]] (* Harvey P. Dale, Feb 03 2012 *)
PROG
(PARI) my(phi=quadgen(5)); a(n) = floor(phi*10^n); \\ Kevin Ryde, Jun 05 2021
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved