|
%I #20 Oct 30 2019 08:26:52
%S 417721,149323,107741,774149,741493,428167,167213,498119,630197,
%T 762547,935651,988033,159473,202877,190387,872747,878659,388259,
%U 882599,150881,248201,883807,787337,477511,599713,532307,653357,206803,823573,423191
%N Primes from merging of 6 successive digits in decimal expansion of Catalan's constant.
%H Vincenzo Librandi, <a href="/A104920/b104920.txt">Table of n, a(n) for n = 1..1000</a>
%H Greg Fee, <a href="http://www.gutenberg.org/ebooks/634">Decimal Expansion of Catalan's Constant</a> done to 50000 digits, Miscellaneous Mathematical Constants, edited by Simon Plouffe, Gutenberg Project.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/CatalansConstant.html">Catalan's Constant</a>
%t Select[FromDigits/@Partition[RealDigits[Catalan, 10, 800][[1]], 6, 1], PrimeQ[#]&&#>99999&] (* _Vincenzo Librandi_, Apr 22 2013 *)
%Y Cf. A006752 (Catalan's constant).
%Y Cf. A104916, A104917, A104918, A104919, A104921, A104922, A104923.
%K nonn,base
%O 1,1
%A Andrew G. West (WestA(AT)wlu.edu), Mar 29 2005
%E Changed offset from 0 to 1 by _Vincenzo Librandi_, Apr 22 2013
|
