|
%I #39 Feb 22 2023 05:34:52
%S 398874989,752126633,250171169,222104321,626296313,381497587,
%T 587012203,408058879,410443207,104432077,850987433,433944221,
%U 798731761,523689427,287856997,165339247,115881863,993432359,509040947,116456299,602017279,471753427,827505131,248093947
%N Primes from merging of 9 successive digits in decimal expansion of the Golden Ratio, (1+sqrt(5))/2.
%C Leading zeros are not permitted, so each term is 9 digits in length. - _Harvey P. Dale_, Oct 23 2011
%C Presumably all 45086079 possible terms eventually occur, probably in the first billion terms or so. - _Charles R Greathouse IV_, Sep 25 2012
%H Vincenzo Librandi, <a href="/A103773/b103773.txt">Table of n, a(n) for n = 1..1000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/GoldenRatio.html">Golden Ratio</a>.
%H <a href="http://www.gutenberg.org/etext/633">Expansion of the Golden Ratio</a> done to 20,000 digits as part of project Gutenberg.
%t Select[FromDigits/@Partition[RealDigits[GoldenRatio,10,2000][[1]],9,1], IntegerLength[#]==9&&PrimeQ[#]&] (* _Harvey P. Dale_, Mar 19 2011 *)
%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 Extended by _Harvey P. Dale_, Mar 19 2011
|
