A065596 - OEIS

%I #2 Mar 30 2012 17:30:37

%S 2,9,11,24,28,30,114,253,359,2054,2324,9418

%N The first n binary digits found in decimal expansion of e form a prime.

%t p = First[ RealDigits[ E, 10, 10^5]]; p = p[[ Select[ Range[10^5], p[[ # ]] == 0 || p[[ # ]] == 1 &]]]; Do[ If[ PrimeQ[ FromDigits[ Take[p, n], 2]], Print[n]], {n, 1, 12800} ]

%K base,nonn

%O 1,1

%A _Robert G. Wilson v_, Dec 01 2001