This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A093473 #10 Dec 19 2015 22:58:44 %S A093473 1,61,803,3988,74989,484820,4586834,36563811,772030917,9805762862, %T A093473 13544862270,526046281890,2449707207204,18939113748475, %U A093473 408807538689175,2126633862223536,93179318006076672,635443338908659593 %N A093473 a(n) = the next n digits of phi, the golden ratio. %H A093473 Harry J. Smith, <a href="/A093473/b093473.txt">Table of n, a(n) for n = 1..200</a> %t A093473 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 *) %o A093473 (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 %Y A093473 Cf. A081368, A090897. %K A093473 easy,nonn,base %O A093473 1,2 %A A093473 _Michael Joseph Halm_, May 13 2004