A103789 Primes from merging of 8 successive digits in decimal expansion of the Golden Ratio, (1+sqrt(5))/2.

65638117, 18939113, 40880753, 33862223, 63544333, 59395829, 26613199, 26788067, 20876689, 62629631, 87012203, 85098743, 12544877, 66478091, 87124007, 70575179, 10427621, 77111777, 17141011, 71410117, 66979873

Offset: 1

Author

Andrew G. West (WestA(AT)wlu.edu), Mar 29 2005

Keywords

• nonn
• base

Comments

Leading zeros are not permitted, so each term is 8 digits in length. - Harvey P. Dale, Oct 23 2011

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000
• Simon Plouffe, Expansion of the Golden Ratio done to 20,000 digits as part of project Gutenberg.
• Eric Weisstein's World of Mathematics, Golden Ratio.

Crossrefs

Cf. A001622.

Programs

Mathematica

Select[Select[FromDigits/@Partition[RealDigits[N[GoldenRatio,1000]][[1]],8,1],PrimeQ],IntegerLength[#]==8&] (* Harvey P. Dale, Dec 04 2010 *)

Extensions

Broken URL to Project Gutenberg replaced by Georg Fischer, Jan 03 2009

Offset changed from 0 to 1 by Vincenzo Librandi, Apr 22 2013