The On-Line Encyclopedia of Integer Sequences (OEIS)

The OEIS is supported by the many generous donors to the OEIS Foundation.

Revision History for A093473

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A093473

a(n) = the next n digits of phi, the golden ratio.
(history; published version)

#10 by Jon E. Schoenfield at Sat Dec 19 22:58:44 EST 2015

STATUS

editing

approved

#9 by Jon E. Schoenfield at Sat Dec 19 22:58:41 EST 2015

LINKS

Harry J. Smith, <a href="/A093473/b093473.txt">Table of n, a(n) for n = 1,...,200</a>

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)); } [From _\\ _Harry J. Smith_, Jun 19 2009]

STATUS

approved

editing

#8 by Charles R Greathouse IV at Thu Nov 21 12:48:18 EST 2013

MATHEMATICA

With[{phi=RealDigits[GoldenRatio, 10, 500][[1]]}, FromDigits/@Table[Take[ phi, {n (n-1)/2+1, (n(n+1))/2}], {n, 25}]] (* From _Harvey P. Dale, _, Dec 24 2011 *)

Discussion

Thu Nov 21

12:48

OEIS Server: https://oeis.org/edit/global/2062

#7 by Charles R Greathouse IV at Thu Oct 03 09:31:24 EDT 2013

AUTHOR

_Michael Joseph Halm (hierogamous(AT)lycos.com), _, May 13 2004

Discussion

Thu Oct 03

09:31

OEIS Server: https://oeis.org/edit/global/1980

#6 by Russ Cox at Fri Mar 30 17:24:41 EDT 2012

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)); } [From _Harry J. Smith (hjsmithh(AT)sbcglobal.net), _, Jun 19 2009]

Discussion

Fri Mar 30

17:24

OEIS Server: https://oeis.org/edit/global/133

#5 by Harvey P. Dale at Sat Dec 24 20:20:46 EST 2011

STATUS

editing

approved

#4 by Harvey P. Dale at Sat Dec 24 20:20:42 EST 2011

MATHEMATICA

With[{phi=RealDigits[GoldenRatio, 10, 500][[1]]}, FromDigits/@Table[Take[ phi, {n (n-1)/2+1, (n(n+1))/2}], {n, 25}]] (* From Harvey P. Dale, Dec 24 2011 *)

STATUS

approved

editing

#3 by N. J. A. Sloane at Thu Nov 11 07:34:06 EST 2010

LINKS

Harry J. Smith, <a href="/A093473/b093473.txt">Table of n, a(n) for n=1,...,200</a>

KEYWORD

easy,nonn,base,new

#2 by N. J. A. Sloane at Tue Jun 01 03:00:00 EDT 2010

LINKS

Harry J. Smith, <a href="b093473.txt">Table of n, a(n) for n=1,...,200</a>

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)); } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Jun 19 2009]

KEYWORD

easy,nonn,base,new

#1 by N. J. A. Sloane at Sat Jun 12 03:00:00 EDT 2004

NAME

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

DATA

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

OFFSET

1,2

CROSSREFS

Cf. A081368, A090897.

KEYWORD

easy,nonn,base

AUTHOR

Michael Joseph Halm (hierogamous(AT)lycos.com), May 13 2004

STATUS

approved