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

1618033, 8874989, 1798057, 7204189, 1893911, 1374847, 5386891, 2126633, 6222353, 6354433, 8322661, 1696207, 9631361, 1361443, 1344947, 9874339, 7499887, 6249407, 1210427, 6217711, 7111777, 8053153, 9914669, 8782289

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 7 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

With[{len=7},FromDigits/@Select[Partition[RealDigits[GoldenRatio, 10,1000][[1]],len,1],PrimeQ[FromDigits[#]] && IntegerLength[ FromDigits[#]] == len&]] (* Harvey P. Dale, Oct 23 2011 *)

Extensions

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

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