%I #34 Feb 21 2023 17:18:50
%S 65638117,18939113,40880753,33862223,63544333,59395829,26613199,
%T 26788067,20876689,62629631,87012203,85098743,12544877,66478091,
%U 87124007,70575179,10427621,77111777,17141011,71410117,66979873
%N Primes from merging of 8 successive digits in decimal expansion of the Golden Ratio, (1+sqrt(5))/2.
%C Leading zeros are not permitted, so each term is 8 digits in length. - _Harvey P. Dale_, Oct 23 2011
%H Vincenzo Librandi, <a href="/A103789/b103789.txt">Table of n, a(n) for n = 1..1000</a>
%H Simon Plouffe, <a href="http://www.gutenberg.org/ebooks/634">Expansion of the Golden Ratio</a> done to 20,000 digits as part of project Gutenberg.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/GoldenRatio.html">Golden Ratio</a>.
%t Select[Select[FromDigits/@Partition[RealDigits[N[GoldenRatio,1000]][[1]],8,1],PrimeQ],IntegerLength[#]==8&] (* _Harvey P. Dale_, Dec 04 2010 *)
%Y Cf. A001622.
%K nonn,base
%O 1,1
%A Andrew G. West (WestA(AT)wlu.edu), Mar 29 2005
%E Broken URL to Project Gutenberg replaced by _Georg Fischer_, Jan 03 2009
%E Offset changed from 0 to 1 by _Vincenzo Librandi_, Apr 22 2013
|