%I #26 Nov 13 2014 10:03:21
%S 1,2,3,1080
%N Numbers n such that first n digits of A091724 (Decimal expansion of E^(2*EulerGamma)) gives a prime number.
%C a(5) > 10^4.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/ConstantPrimes.html">ConstantPrimes</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/IntegerSequencePrimes.html">IntegerSequencePrimes</a>
%t nn=1100;With[{c=RealDigits[E^(2*EulerGamma),10,nn][[1]]},Select[ Range[ nn], PrimeQ[FromDigits[Take[c,#]]]&]] (* _Harvey P. Dale_, Nov 13 2014 *)
%Y Cf. A091724.
%K nonn,more,base
%O 1,2
%A _Robert Price_, Aug 26 2013