OFFSET
1,2
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..200
MATHEMATICA
With[{phi=RealDigits[GoldenRatio, 10, 500][[1]]}, FromDigits/@Table[Take[ phi, {n (n-1)/2+1, (n(n+1))/2}], {n, 25}]] (* Harvey P. Dale, Dec 24 2011 *)
PROG
(PARI) { default(realprecision, 20180); x = (1 + sqrt(5))/2; for (n=1, 200, d=floor(x); x=(x-d)*10^(n+1); write("b093473.txt", n, " ", d)); } \\ Harry J. Smith, Jun 19 2009
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Michael Joseph Halm, May 13 2004
STATUS
approved