|
%I #24 Feb 22 2023 05:35:03
%S 61,89,83,43,11,17,17,79,13,89,97,41,89,11,13,37,47,53,89,17,23,53,31,
%T 17,79,31,67,43,89,59,59,29,83,61,13,31,19,29,67,67,89,17,71,11,43,29,
%U 31,13,61,43,97,79,47,61,53,41,43,71,13,47,67,43,47,71,17,17,79,97,83
%N Primes from merging of 2 successive digits in decimal expansion of the Golden Ratio, (1+sqrt(5))/2.
%C Leading zeros are not permitted, so each term is 2 digits in length. - _Harvey P. Dale_, Oct 23 2011
%H Vincenzo Librandi, <a href="/A103812/b103812.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">The Golden Ratio</a>.
%H <a href="http://www.gutenberg.org/ebooks/634">Expansion of the Golden Ratio</a> done to 20,000 digits as part of project Gutenberg.
%t With[{len=2},FromDigits/@Select[Partition[RealDigits[GoldenRatio,10, 1000][[1]],len,1],PrimeQ[FromDigits[#]] && IntegerLength[ FromDigits[#]] == len&]] (* _Harvey P. Dale_, Oct 23 2011 *)
%Y Cf. A001622.
%K nonn,base
%O 1,1
%A Andrew G. West (WestA(AT)wlu.edu), Mar 29 2005
%E Offset changed from 0 to 1 by _Vincenzo Librandi_, Apr 22 2013
|
