|
%I #10 Dec 19 2015 22:58:44
%S 1,61,803,3988,74989,484820,4586834,36563811,772030917,9805762862,
%T 13544862270,526046281890,2449707207204,18939113748475,
%U 408807538689175,2126633862223536,93179318006076672,635443338908659593
%N a(n) = the next n digits of phi, the golden ratio.
%H Harry J. Smith, <a href="/A093473/b093473.txt">Table of n, a(n) for n = 1..200</a>
%t 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 (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 Cf. A081368, A090897.
%K easy,nonn,base
%O 1,2
%A _Michael Joseph Halm_, May 13 2004
|
