A093473 a(n) = the next n digits of phi, the golden ratio.

1, 61, 803, 3988, 74989, 484820, 4586834, 36563811, 772030917, 9805762862, 13544862270, 526046281890, 2449707207204, 18939113748475, 408807538689175, 2126633862223536, 93179318006076672, 635443338908659593

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

Cf. A081368, A090897.

Sequence in context: A142365 A251426 A232858 * A000506 A008358 A317283

Adjacent sequences: A093470 A093471 A093472 * A093474 A093475 A093476

Keyword

easy,nonn,base

Author

Michael Joseph Halm, May 13 2004

Status

approved