|
%I #19 Oct 30 2019 08:27:14
%S 4177,7219,1901,4603,1493,9323,7741,1493,4937,8167,7213,9811,6217,
%T 6301,3019,6947,9479,4793,5651,1151,9619,6199,8803,9059,9431,9473,
%U 7481,9533,7331,3319,2287,7741,6397,2011,7873,8647,5113,3407,5407,5323,5653,3823
%N Primes from merging of 4 successive digits in decimal expansion of Catalan's constant.
%H Vincenzo Librandi, <a href="/A104918/b104918.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> to 50000 digits.
%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]], 4, 1], PrimeQ[#]&&#>999&] (* _Vincenzo Librandi_, Apr 22 2013 *)
%Y Cf. A006752 (Catalan's constant).
%Y Cf. A104916, A104917, A104919, A104920, 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
|
