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

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

Offset

1,1

Links

Table of n, a(n) for n=1..12.

Mathematica

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} ]

Crossrefs

Sequence in context: A042463 A081613 A115911 * A280418 A042053 A134775

Adjacent sequences: A065593 A065594 A065595 * A065597 A065598 A065599

Keyword

base,nonn

Author

Robert G. Wilson v, Dec 01 2001

Status

approved